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Juitte a capacidade de manusear dados 
com as funcoes graficas do seu 
micro e desenvolva programas capazes 
de mostrar em urn grdfico 

qualquer tipo de informacao numerica. 



Arma2enamento e processamento de 
dados sao atributos tipicos de qualquer 
computador. Contudo, nao € facil para 
o usuario assimilar grandes quantidades 



de informacoes. Se nos apresemarem, 
por exemplo, uma lista contendo milha- 
res de numeros, e muito dificil interpret 
tar seu signifieado. 

Para entender melhor, de uma olha- 
da na seguinte lista: 132.9, 146.2, 
132.89, 123.92, 147.01, 153.47, 132.09, 
138.79, 147.57, 153.9, 140.04, 142.76, 
152.76, 132.6, 135.09, 146.98. Agora 
responda rapidamente as seguintes per- 
guntas: qual e o maior numero da lis- 
ta? Qual a sua posicao na lista? Quan- 
tos numeros menores que 135.5 hi nela? 



V 



Como voce" ve, nao e muito facil dar 
respostas rapidas a essas questoes. Ima- 
gine se a quantidade de numeros fosse 
einco vezes maior! 

A maneira tradicional de tratar esse 
tipo de problema consiste em colocar a 
informacao em um grafico. Quando is- 
to £ feito, torna-se facil perceber qua! 
e o ponto mais alto. Assim, com o au- 
xflio de uma regua na posicao horizon- 
tal, podemos verificar quais os valores 
que estao acima ou abaixo de um deter - 
minado valor. 
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No artigo Retina Seus Dados em Grd- 
ficos (pagirta 181), apresentamos urn 
programa que mostra, sob a forma de 

um grafico de barras, dados introduzi- 
dos no computador. O presente artigo 
trata das tecnicas necessarias a confec- 
cao de graficos lineares. Em licdes pos- 
teriores, abordaremos os histogramas e 
oulros tipos de grafico. 

Como as rotinas deste artigo vao 
al£m das capacidades graficas do ZX-8I 
e do TRS-80, nao apresentaremos pro- 
gramas para tais micros. 



GRAFICOS DE FUNCOES MATEMATICAS 



A estrutura de um programa depen- 

de do tipo de informacao que queremos 

mostrar na tela. Quando ha uma relacao 

matematica ligando os dados, podemos 

usar uma funcao matematica. Os micro- 

computadores sao dotados, por exem- 

plo, de funcoes trigonometricas — se- 

no, cosseno e tangente — que tor- 

nam facil o tracado de curvas 

: *55 :: . eiclicas, como ja foi explica- 

^^^ do em artigos anteriores, 

^^ ou como demonstra o 

1^ seguinte programa: 
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30 PLOT 0,76 

40 FOR t-0 TO PI*10 STEP 

50 DRAW 2, COS t*15 

60 NEXT t 



m 



10 COLOR 1,15,1 

20 SCREEN 2 

30 DRAW "BM0.95" 

40 FOR T-0 TO 40*ATNC1) STEP 

6 

50 LINE - (8*T,95-40*SIN{T) ) 

60 NEXT 

150 GOTO 150 



LBE] 



10 
30 
40 
50 
(T 
60 
150 



HOME : HGR 
HPLOT 0,145 



HCOLOR- 



FOR T 

HPLOT 

/ 10) 

NEXT T 

END 



■ TO 279 STEP 4 
TO T.95 + 50 * COS 



D 

15 PMODE 3,1 

20 PCLS 

25 SCREEN 1,1 

30 DRAWBM0.95" 

40 FOR T-0 TO 40*ATN(1) STEP. 06 

50 LINE-{8*T,95-40*SIN(T)) .PSET 

60 NEXT 

150 GOTO 150 

Esse programa traca uma curva se- 
noide, que tern muitas aplicacoes em 
ciencia, tecnologia, miisiea e tracados 
graficos. A linha 40 estabelece que a cur- 
va tera cinco ciclos (menos no Apple). 
Cada ciclo e duas vezes PI. A linha 50 
determina como e desenhada a curva 
(para conhecer maiores detalhes, vejao 
artigo Mais Requinte em Sens Desenhos, 
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120 


125 


130 








100 


135 
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a pagina 354). Aherando os valorcs nes- 
sas linhas (linha 30 no Apple), podemos 
variar consideravelmente a forma da 
curva. 

micro tern um numero limitado de 
funcfies embutidas, prontas para serem 
usadas, mas qualquer func&o matema- 
tica pode ser desenhada, desde que a de- 
finamos dentro de um programa. 

Acrescente as prdximas linhas ao pro- 
grama e execute-o novamente. 



70 PLOT 0,60 

80 FOR n-1 TO 220 STEP 5 

90 DRAW 5, U110-n)*15>/200 

100 NEXT n 

110 PLOT 0,100 

120 FOR n-1 TO 220 STEP 5 

130 DRAW 5,-(U10-n)*15)/200 

140 NEXT n 



fffi 



15 D-l:E-64 




70 COLOR 4 




60 DRAWBM0, "+STR$ (INT C109*D+E) 

J 

90 FOR T-- 127 TO 128 


100 LINE -U27+T,T*T/150*D+E) 


110 NEXT 




120 IF D--1 THEN ISO 


130 D«-l:E-E+64 


: COLOR 6 


140 GOTO B0 




5BG6H 




5 D - 1:E - 64 




70 HCOLOR- 5 




80 HPLOT 0,64 


* D + E 


90 FOR I - - 


139 TO 140 


100 HPLOT TO 


139 + T,T * T / 


160 * D + E 




no NEXT 




120 IF D - - 


1 THEN 150 


130 D - - 1:E 


- E + 64: HCOLOR 


- 6 





140 OOTO BO 

Q 

10 D-liE-64 

70 COLOR 3 

80 DRAW"BM0,"+STR$UNT<109*D+E) 

) 

90 FOR T— 127 TO 128 

100 LINE -(127+T,T*T/150<*D+E) ,P 

SET 

110 NEXT 

120 IF D— 1 THEN 150 

130 D— 1 ;E-E+64: COLOR 2 

140 OOTO 80 

Temos agora duas parabolas, alem 
da sendide. Os numeros necessirios pa- 
ra sua elaboracao s£o criados em um la- 
co FOR,.. NEXT, O Spectrum, por 
exemplo, usa um laco para as parabo- 
las e outro para a senoide. 



GRAFICOS IRREGULARES 



A maioria dos graficos, porem, esta 
vinculada a numeros sem qualquer re- 
lacao matematica entre si. Esses nume- 
ros podem representar, por exemplo, os 
valores da precipitac§o pluviom6trica ao 
longo do ano ou a flutuacao dos lucros 
e perdas de uma firma: esse tipo de da- 
do varia imprevisivelmente. Se fossernos 
tracar o grafico a mao, comecarfamos 
pelos eixos cartesianos. Assim, fac.amos 
com que esta seja a primeira parte do 
programa: 



140 DRAW 0,175 
150 PLOT 0,0 
160 DRAW 255,0 



M 



10 3CREEN 2 
140 LINE (8,0)- (8,191) 
160 LINE (8,191) -(255.191) 
200 GOTO 200 



HIE] 



10 HOME : HOP. : HCOLOR- 3 
140 HPLOT 0,0 TO 0,159 
160 HPLOT 0,159 TO 279,159 

200 END 



El 



5 COLOR 1,15,15 



5 PMODE 3,1 

10 PCL3 

15 SCREEN 1,1 

140 LINE (0,Q)-(0,I91> ,PSET 

160 LINE (0,191)-{255.191) ,PSET 

200 OOTO 200 

Nessas linhas, o programa seledona 
um modo grafico (menos no Spectrum, 
onde isso nao 6 necessario), colocando 
o eixo Y no lado esquerdo da tela, e o 
eixo X, embaixo. 

Esta € a disposicSo usual dos eixos, 
mas podemos modifica-Ia conforme o 
intervalo a que pertencem os numeros 
em questao. Por exemplo, se tracarmos 
curvas a respeito da variacao de tempe- 
raturas ou sobre ganhos e perdas, tere- 
mos (em alguns casos) a ocorrSncia de 
numeros negativos; dessa forma, o ei- 
xo X tera que se deslocar para uma po- 
sicSo mais alta na tela. 

Outra razao para mudar a disposicao 
dos eixos e deixar espaco para ndmeros 
e legendas, sempre uteis quando se tra- 
ta de graficos. Faca as pr6ximas modi- 
t'icacoes para ter um exemplo. 



130 PLOT 20,10 
140 DRAW 0,155 
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5 170 175 180 185 190 195 200 205 210 215 22 


225 230 235 240 2^ 


5 25 


255 260 265 27 
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Posso modificar os programas da 

modo a misturar dados positives e ne- 
gatives em um s6 grafico? 

A rotina de entrada de dados nao 
precisa ser modificada para aceitar nu- 
meros negativos; em contrapartida, as 
rotinas que cuidam dos eixos e dos gr=i- 
ficos exigem essa alteracao. A maior 
dificuldade nao e descobrir os valores 
maxima e mlnimo, mas sim decidtr em 
que ponto da tela colocar o eixo X. 

Se voce se disposer a mudar a po- 
sicao desse eixo a cada novo grupo de 
dados, as modificacoes serao bastan- 
te simples. Para isso, observe atenta- 
mente os dados, escolha f atores de es- 
caia adequados e comece a desenhar 
a partir da origem dos eixos. 



5 COLOR 6.15.15 

135 COLOR 1 

140 LINE {20.0)-(20,160) 

160 LINE (20.80)- (255. BO) 



Para modificar o tamanho dessas 
margens, altere os valores nas linhas 1 30 
a 160, com o cuidado de que, no Spec- 
trum, as linhas 130 e 150 sejam 
identicas. 

Agora, acrescente as proximas linhas 
para continuar e acompanhe o desenvol- 
vimento do processo. 



10 


HOME : HGR 


135 


HCOLOH- 3 


140 


HPLOT 20,0 TO 20.140 


160 


HPLOT 20,70 TO 279,70 


200 


END 



60 
70 



u 



LET n-lQ 
PLOT 20, n 
80 FOR x-1 TO 12 
90 READ y 
100 DRAW ie,Y-n 
105 LET n=y 
110 NEXT X 
1000 DATA 50.70,60,100,80,120,1 
00.130,70,140,90,110 



5 PMODE 3.1 

10 PCLS 

15 SCREEN 1,1 

135 COLOR 2 

140 LINE <20,0)-(20,160> , PSET 

160 LINE <2Q,80)-(255.80} .PSET 

200 GOTO 200 

Ao executar o programa, notaremos 
que ha margens a direita e abaixo do 
grafico. 



m 



70 DRAW "BM20.160" 

80 FOR X=20 TO 20+11*20 STEP 

90 READ Y 

100 LINE-(X,161-Y) 

110 NEXT 

160 LINE (2O.160)-(255.160) 

1000 DATA 140,123,148,45,100, 

,20,8.45,8,45,30 



20 



10 



7 
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15 HCOLOH- 5 

70 HPLOT 20.160 

BO FOR X - 20 TO 20 + 11 * 20 

STEP 20 

90 READ Y 

100 HPLOT TO X.141 - Y 

110 NEXT 

160 HPLOT 20,140 TO 279,140 

1000 DATA 130,113,138,35,90.5 

,20,8,45,8,45,30 

D 

70 DRAWBM20, 160" 

80 FOR X-20 TO 20+11»20 STEP 20 

90 READ Y 

100 LIME -(X.Y) ,PSET 

110 NEXT 

160 LINE (20. 160) -[255, 160) , P3E 

T 

1000 DATA 140,123,148,45,100,10 

,20.8,45,8,45,30 

O prograrna desenha doze pontos na 
tela, tomando os valores de X da linha 
80, e os de Y da linha 1000; em segui- 
da, ele une esses valores para formar um 
grafico serrilhado. 

O primeiro valor da linha DATA e 



desenhado na extrema esquerda, em ci- 
ma do eixo dos Y, mas poderiamos te- 
lo colocado na primeira posicao dos X, 
modificando, assim, a localizacao initial 
do cursor. 

Em todos os programas, menos no 
do Spectrum, essa localizacao e especi- 
ficada na linha 70; no Spectrum, isso e 
feito invariavelmente na linha 60. 

Se os valores vao ser usados van as ve- 
zes, convem distribui-los em uma linha 
DATA. Mas, se quisermos tracargrafi- 
cos com valores diferentes, e melhor 
usarmos o comando INPUT. 

Acrescente entao a pr6xima linha, Is- 
so funciona em todos os generos de mi- 
crocomputadores, a excecao dos que sao 
compativeis com o MSX, que nao acei- 
ta o comando INPUT quando esta no 
modo grafico. 



90 INPUT "Valor de X ?",y : 
LET y-y+10 



5DE1 



90 VTAB 22: INPUT "VALOR DE Y 
7";Y 



o 

90 INPUT "VALOR DE Y " ; Y 
130 SCREEN 1,1 

Ao ser executado, o prograrna pede 
o primeiro valor de Y. Em seguida, ele 
realiza a primeira volta do laco da linha 
80. Feito isso, ele torna a pedir um va- 
lor de Y, prosseguindo dessa maneira 
ate que os doze valores sejam colocados 
na tela. 

Muitos usuarios nao gostam da inter- 
rupcao que a rotina causa no tracado do 
grafico. As seguintes modificacoes resol- 
vem o problem a: 



20 DIM y(12) 

40 FOR n-1 TO 12 

50 INPUT "Valor de Y?".y(n): 

LET y(n)-y(n)+10 

60 NEXT n: CLS 

70 LET n-10 

80 PLOT 20, n 

90 FOR x-1 TO 12 

100 DRAW 18,y(x)-n 

105 LET n-Y(Jl) 

110 NEXT x 




que a eicalamento? 

Escalamento e uma transformacflo 
metematice doa elxoa de um grafico, 
do modo a fazer com qua os sous ex- 
tremes (pontos maximo e mfnlmo) cai- 
bam noa limitea de uma "janela" no vi- 
deo. Esta pode ocupar todo o video, ou 
apenas parte dele; neste ultimo caso, 
diversos graficos podsm sir distribul- 
dos slmultaneamente por diferentes 
pontos da tela. 

Praticamente todos os graficos ela- 
borados por programas exigem algum 
tipo de ascalamento, A unica excecSo 
sao oa graficos cujas coordenadas ho- 
rizontals e verticals se sltuam no domf- 
nio dos numeros inteiros positivos, e 
cujos valores maximoe em cada eixo 
nSo excedem em numero de pixels a re- 
solugBo da tela na mesma dlrecSo. 

Suponhamos, por exemplo, que e 
necessaries colocar em grfif ico dues va- 
riaveis, X a Y, onde X varia de um mi- 
nima de 10 a um maximo de 200, e Y 
varia de um mfnimo de a um maximo 
de 1 60. Nesse caso, se o computador 
a ser usado for da linha Apple II, que 
tern uma resolucSo grafica maxima de 
280 pontos na horizontal por 1 92 pon- 
tos na vertical, nflo precisaremos esca 
lar os elxos X e Y. Esse exemplo, po- 
rem, e uma excecSo. 

Existem ainda casos em que basta 
escalar apenas um dos eixos. Entretan- 
to, na maioria das vezes, ambos os ei- 
xos precisam ser escalades. 

Do ponto de vista matematico, o 
metodo de escalamento consiste ape- 
nas em uma regra de trfls. A mesma 
formula pode ser aplicada tanto para o 
eixo horizontal como para o vertical, 
bast ando trocar as variaveis x por y. A 
formula leva em conta os valores mf- 
nimo e maximo do eixo, o numero de 
pontos graficos que cabem nele, e se 
os valores nume>icos identificadores 
das marcas dos eixos (rotulos) series 
arredondados ou n§o. 

A formula de escalamento e: 



x ■ 



x - xmin 

xmax - xmin 



. pix 



onde: 

x' = valor escalado 
x = valor original 
xmin = valor mfnimo da escala 
xmax = valor maximo da escala 
pix = numero maximo da pixels do 
eixo. 
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5 COLOR 1,15,15 






10 


SCREEN 






20 


DIM YU1) 






40 


FOB N-0 TO 11 






50 


INPUT "Qual o 


valor de 1 


■ix 


(N) 








60 


NEXT 






65 


COLOR 6: SCREEN 


2 




70 


DRAW "BM20,-+8TRS(IMT(161- 


-Y< 


0))) 






80 


N-0 






90 


POR X-20 TO 11 


*20+20 STEP 


20 


100 


LINE -CX.161- 


Y(N)) 




110 


N-N+l 






120 


NEXT 






IM 




10 


HOME 






15 


DIM Y{11) 






40 


FOR N - TO 


11 




50 


INPUT "QUAL C 


VALOR DE Y 


7 


•rY(N> 






60 


NEXT 
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HOME : HGR : 


HCOLOR- 5 




70 


HPLOT 20,141 


- YC0} 




80 


N-0 






90 


FOR X - 20 TC 


11 ■ 20 + 


20 


STEP 20 






100 


HPLOT TO X. 


141 - Y£N) 




. 110 


N - N + 1 








NEXT 






■ 

20 


DIM Y(ll) 







que o ideal. Precisamos, assim, de uma 
escala que os coloque dentro do inter - 
valo valido. A mancira mais simples de 
fazer isso e olhar todos os valores e de- 
cidir entao qual e o fator que deveremos 
usar para muliiplicar todos os numeros, 
de forma a mostra-los no grafico. 

A seguir, apresentamos o programa 
completo, isto i, com todas as modifi- 
cacOes neccssarias. 



40 
50 
60 
70 



FOR N-0 TO 11 

INPUT "VALOR DE Y ";Y(N) 

NEXT 

DRAW •BM20 I "+STRS(INT!161-Y< 






TO 11*20+20 
,Y(N) ) ,PSET 



STEP 20 



0)>) 

BO N-0 ^ 

90 FOR X-20 

100 LINE-CX 

110 N-N+l 

120 NEXT ^L 

O programa realiza primeiro a roti- 
na de entrada de dados para depois fa- 
zer o grafico. Os dados sao colocados 
na matriz Y ( ), como variaveis de Y (1) 
a Y (12) no Spectrum, e Y (0) a Y (11) 
nos demais computadores. Case se quei- 
ra utilizar mais de doze niimeroi, basta 
redimensionar a matriz. Os vakires de 
X sao obtidos na linha 90, e o deseaho 
e" feito pela linha 100. A linha 1 1CT 
ta os valores de Y. 



COMO USAR ESCALAS 






20 DIM y(12) 

30 LET xa-2: LET ya-1/50 

40 FOR n-1 TO 12 

50 READ y(n) 

60 NEXT n: CLS 

70 LET n-8 

80 PLOT 40, n 

90 FOR X-l TO 12 

100 DRAW B**b, <y(x)-n)*yg 

105 LET n-y(x) 

110 NEXT x 

130 PLOT 40,8 

140 DRAW 0,167 

150 PLOT 40,8 

160 DRAW 210,0 

1000 DATA 4000,2000,6000,3000,8 
000,4000,5000,2000,6000,1500,30 
00,500 



M 



5 COLOR 6,15,15 
10 SCREEN 2 
20 DIM Y(12) 
30 XS-20:YS-1/20 
40 FOR N-1 TO 12 
50 READ YtN) 
60 NEXT 

80 DRAW ■BM20,"+STR$(INTU61-YS 
*Y(1))) 

90 FOR X-l TO 12 
100 LINE-{X*XS,161-YS«Y(X)) 
110 NEXT 
135 COLOR 1 

140 LINE (20.0)-(20,160) 
160 LINE (20,160)-(255,160) 
200 GOTO 200 

1000 DATA 1600,1000,2500,3000.3 
2500 , 10 00 , 3000, 750 , 150 



200,2000 
0,250 

HIE] 



HCOLOB" 



con- 20 



- 1 / 

TO 12 



20 



Os valores para os graficos foram es- 
colhidos ate" agora de modo a caber den- 
tro dos eixos e da tela. Geralmente, po- 
rem, os numeros que queremos colocar 
em um grafico sao maiores ou menores 



10 HOME I HGR 
DIM Y(12) 
XS - 20:YS 
FOR N-1 
50 READ Y(N) 
60 NEXT 

60 HPLOT 20,141 
90 FOR X - 1 TO 
100 HPLOT TO X 
J * YS 
110 NEXT 
135 HCOLOR- 3 
140 HPLOT 20,0 TO 2&TM 



- Yd) 
12 
* XS 



* YS 



141 - Y(X 




PROGRAMACAO 



BASI 



160 HPLOT 20,140 TO 279,140 

200 END 

1000 DATA 1600,1000,2500,300, 

450,2000,2500,1000,2700.750,150 

0.250 



□ 



5 PMODE 3,1 

10 FCLS 

20 DIM YU2) 

30 XS=20:YS-1/2Q 

40 FOB N=l TO 12 

50 READ Y(N) 

60 NEXT 

80 DRAWBM20, "+STRS (INT (161-YS* 

Yd))) 

90 FOR X»l TO 12 

100 LINE - (X*XS.Y(X)*YS) ,PSET 

110 NEXT 

130 SCREEN 1,1 

135 COLOR 2 

140 LINE (20,0)-{20, 160) , PSET 

160 LINE (20,160)-{255.160) ,PSE 

T 

200 GOTO 200 

1000 DATA 1600,1000,2500.3000,3 

200, 2000,2500, 1000, 3000, 750. 150 

0,250 

O programa faz o grafico a partir dos 
valores da linha DATA 1000. Assim, 
poupa-se o tempo de digitacao dos nu- 
meros enquanto o programa esia sendo 
testado, Corno vimos anteriormente, e 
possivel mudar facilmente a via de en- 
trad a dos dados. 

Os fatores de escala sao estabelecidos 
pela linha 30. A linha 80 move o cursor 
para a posicao inicial e os pontos sao 
tracados pelo laco das linhas 90 a 110. 
As linhas 130 a 160 desenham os eixos 
cartesianos. 

Se o grafico nao utilizar todo o es- 
paco disponivel na tela, podemos mu- 
dar o valor dos fatores de escala da li- 
nha 30. Para usar a escala nos eixos, di- 
gite as pr6ximas linhas. 



140 DRAW 0,2000*yb 
160 DRAW 12*xs,0 



m 



140 LINE (20. 160)-<20. 161-3200* 
YS) 



geei 



140 HPLOT 20,140 TO 20 ,_lj ■ 2 
700 * YS 



■■ 



Ao rodarmos o programa, o eixo Y 
ira somente ate a altura do maior valor. 
O efeito sera mais nitido se substituir- 
mos os valores da linha 30. Agora po- 
demos utilizar qualquer valor, desde que 
modifiquemos os fatores de escala na li- 
nha 30. 

Para numerar os eixos, digite as pro- 
ximas linhas: 



210 FOR x-0 TO 12 STEP 2 

220 PRINT AT 21,x*2+4;x 

230 NEXT x 

300 FOB Y-0 TO 8000 STEP 2000 

310 PRINT AT (8000-y)/400,0;y 

320 NEXT y 

As linhas 210 a 230 lomarn os valo- 
res de a 12, que sao colocados logo 
abaixo do eixo X. Os numeros ao Ion- 
go do eixo Y sao irnpressos pelas linhas 
300 a 320. 



fffi 



200 OPEN "GRP:" FOR OUTPUT AS I 

1 

210 FOR Y = 500 TO 3000 STEP 500 

220 PRESET (0 , 1S1-Y*YS) : PRINTH 

.Y/500 

230 LINE {18,161-¥*YS)- (20, 161- 

Y*YS) 

240 NEXT 

250 PRESET <25.0):PRINT il.f 

500) " 

260 FOR X-20 TO 255 STEP 

270 PRESETCX-8,170) ;PRI(ttM,X/2 



280 LINE (X.162)-(X,; 

290 NEXT 

300 GOTO 300 

A linha 200 abre u^irqurvo para 
que possamos escrever na tela de alta re- 
solucao. O iaco das linhas 210 a 240 es- 
creve os valores abaixo do eixo X e o Ia- 
co das linhas 260 a 290, no eixo Y. No- 
te como PRESET 4 usado para escolher 
a posicao de injpressao. A linha 250 in- 
form a a escala das ordenadas. 



khsF 




140 LINE (20.160) -(20,161-3200* 
YS) ,PSET 



200 FOR Y - 500 TO 2500 STEP 5 

HPLOT 18, Y * YS TO 20, Y * 

220 NEXT 

230 FOR X = 20 TO 20 * 12 STEP 

20 

240 HPLOT X.142 TO X.140 

250 NEXT 

260 END 

Este programa apenas coloca traci- 
nhos nos eixos. O Apple nao tern uma 




COMO COMPARAR DAOOS 

A capacidade de desenhar urn gra- 
fico em escala e particularmente titil 
quando se deseja mostrar mais de urn 
conjunto de dados ao mesmo tempo. 
Por exemplo, as duas metades do ano. 
Se quisermos compar£-las, devemos 
comecar desenhando um grafico para 
o primeiro semestre no alto da tela e 
um para o segundo, embaixo. Podemos 
colocar os doze valores dentro de uma 
s6 rnatriz. Depois, lemos os seis primei- 
ros e acionamos a sub-rotina que faz 
o grafico. Lemos a seguir os outros 
seis, e repetimos o processo. As mu- 
dancas necessaries dizenn respeito a 
posicao inicial de cada grafico e a po- 
sicao dos eixos, de forma a desenhar 
dois, e nao apenas um etxo. Uma alter- 
nativa para essa solucao 6 tracar urn 
unico eixo X no meio da tela, de onde 
partem, em direcoes diferentes, os dois 
graficos. 




eira de escrever com facilidade na 
ela de alta resolucao. 

No TK-2000 podemos escrever os nii- 
meros na tela grafica; neste caso, po- 
r6m, a tarefa e deixada ao leitor. 

O laco das linhas 200 a 220 cuida do 
eixo Y, enquanto que o das linhas 230 
a 250 cuida do eixo X. 



Escrever na tela grafica do TRS- 
Color e mais complicado, pois nao po- 
demos usar o PRINT. Os caracteres de- 
vem ser desenhados com DRAW. Mui- 
to longa para ser listada aqui, a rotina 
que faz isso encontra-se na pagina 236 
(Recursos Graficos Safisticados), e po- 
de ser facilmente incorporada ao pro- 
grama apenas com alguns ajustes nos 
numeros das linhas. 



A ARTE FINAL 



Os liltimos retoques no desenho fica- 
rao por sua conta. Eles nao sao essen- 
ciais, mas o grafico ficara mais atraen- 
te se for colorido e dispuser de um ro- 
dape\ Os comandos necessarios para 
realizar esse trabalho podem ser revisa- 
dos nos artigos Como Desenhar em BA- 
SIC (pagina 1 13) e Ordem e Limpeza no 
Video (pagina 146). 



4 PERIFEMCOS 4 



CUIDADQ 
FITAS E DISC 
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Voce rtao precisa ser urn genio de 
organizacao para lidar com 
computadores. Mas vale a pena fazer 
urn minimo de esforeo para 
manter em ordem suas fitas e disquetes, 



Os sistemas de armazenamento auxi- 
liar bascados em fitas ou discos ofere- 
cem ao usuario de computadores do- 
mesticos a possibilidade de contar com 
vastas quantidades de informacao e 
tambem de milhares de programas de 
uma forma muito compacta. 

Entretanto, a eficiencia dos sistemas 
de armazenamento magnetico tem al- 
guns pontos fracos em potential. Como 
as informacoes se concent ram em pe- 
quenos disquetes ou em fitas cassetes, 
qualquer dano sofrido por estes pode ter 
efeitos desastrosos. Ao mesmo tempo, 
os meios magneticos sao bastante vul- 
neraveis a agressoes ambientais. 



PROTECAG CONTRA DANOS 



Diante disso, e de fundamental im- 
portancia que a informacao permaneca 
inalterada no disco ou na fita em que fci 
gravada. Assim, voce podera te-la de 
volta sempre que precisar. 

Existem dois tipos de danos que po- 
dem afetar os meios magneticos: o tipo 
mecanico e o magnetico. 

Os danos mecanicos podem ser cau- 
sados por fatores externos, como calor, 
deformacao (provocada pela pressao de 
urn corpo mais pesado, por exemplo, 
poeira, umidade etc.). Esses fatores ten- 
dem a deteriorar a base magnetica ou a 
estrutura dos disquetes e das fitas. Pa- 
ra evitar sua acao, e necessario proteger 
os meios magneticos sempre que eles 
nao estiverem sendo utilizados. Assim, 
mantenha os disquetes dentro de sua ca- 
pa de cartolina e guarde-os em uma cai- 
xa ou gaveta apropriada. Conserve as fi- 
tas cassetes em suas caixas de plastico, 
e estas, por sua vez, em uma estante pr6- 
pria (o que facilitara tambem o traba- 
Iho de localiza-Ias). Armazene discos e 
fitas longe da poeira, do calor e da 
umidade. 



Nunca toque a superfine exposta de 
um disco ou fita. Rebobine as fitas sem- 
pre que puder, colocando sua parte 
transparente (leader) na abertura, onde 
a fita esta mais sujeita a acao dos agen- 
tes externos. Alem disso, a fita ficara 
pronta para ser novamente utitizada. 
Nao deixe fitas por muito tempo den- 
tro do gravador com a tecla PLAY acio- 
nada; se o fizer, elas sofrerao deforma- 
c6es provocadas pelo cabecote do gra- 
vador. Da mesma forma, nunca deixe 
disquetes dentro da unidade acionado- 
ra (driver). 

Outro perigo consideravel para seus 
discos e fitas sao os campos magneticos 
encontrados em aparelhos eletrodomes- 
ticos como alto-falantes e alguns tipos 
de motor. Equipados com imas, esses 
aparelhos geram campos magneticos 
fortes mesmo quando nao estao funcio- 
nando. Portanto, mantenha discos e fi- 
tas longe de televisores, motores de au- 
tomoveis, geladeiras, aparelhos de ar 
eondicionado, ventiladores, e ate mes- 
mo de telefones. 



SEGURO CONTRA PERDAS 



Por outro lado, os acidentes sao ine- 
vitaveis; por isso, vale a pena tomar pre- 
caucoes extras e fazer duplicatas dos da- 
dos e programas mais importantes. Es- 
sas copias cautelares, ou de seguranca, 
sao conhecidas em computes pelo nome 
de back-up. 

Em geral, e uma boa idem gravar tu- 
do duas vezes (o que pode ser feito na 
mesma fita ou disco). Tres vezes e me- 
Ihor ainda. Desse modo, pelo menos 
uma versao permanecera intacta. Se o 
arquivo for importante, faca cbpias em 
novos discos ou fitas, e guarde-as em 
outro lugar; mas procure nao utiliza-las: 
elas poderao ser necessaiias para recu- 
perar o arquivo original em caso de 
perda. 

Proteja suas fitas contra a desgra- 
vacao, removendo a orelha de plasti- 
co da borda da fita. Para proteger os 
disquetes, coloque uma fita adesiva opa- 
ca ou reflexiva sobre o furo retangu- 
lar que existe em uma ou ambas as bor- 
das (isso, nos disquetes de 5 1/4". No 
caso dos disquetes de 8", a protegao 



PROTEJA A INFORMA CAO 
COMO FAZER CAPIAS 



CAUTELARES 



(NDEXACAQ DO MATERIAL 



FACA ENVIOS PELO CORREIO 



se faz removendo o adesivo). 

Com o passar do tempo, discos e fi- 
tas se acumulario as centenas em seu ar- 
quivo, tornando cada vez mais dificil a 
localizacao dos dados e programas. As- 
sim, 6 aconselhavel rotular discos e fi- 
tas desde o comeco (voce pode, por 
exemplo, numera-los para referSncias 
rapidas; alguns micros permitem iden- 
tificar disquetes com nomes), Paralela- 
mente, procure armazenar apenas arqui- 
vos relacionados em uma fita ou disco. 
As fitas devem, de preferencia, ser cur- 
tas e conter de um a tres arquivos ou 
programas, apenas. 

De a cada arquivo um nome bem cla- 
ro, dentro das limitacoes impostas pelo 
si sterna operacional usado pelo seu mi- 
cro. Se voce tiver varias versoes de um 
programa, utilize um sistema de nume- 
racao qualquer para identifica-las. Co- 
loque o nome e o numero de cada ver- 
sao dentro dos programas utilizando de- 
claracoes REM. 

Para identificar discos e fitas, use eti- 
quetas gomadas adequadas. No caso de 
fitas, nao se esqueca de rotular tambem 
as caixas. Nao escreva com lapis ou ca- 
neta esferografica sobre a etiqueta de 
um disquete. Mantenha um caderno ou 
fichario com todos os nomes de arqui- 
vos, programas, comentarios e suas res- 
pectivas localizagoes. 



PELO. CORREIO 



Fitas e discos constituem um meio 
muito conveniente de enviar programas 
e outros tipos de informacao pelo cor- 
reio. As fitas cassetes sao razoavelmen- 
te fortes e "viajam" bem. Envie-as sem 
a caixa para reduzir o peso e o custo 
(nao esqueca de travar o movimento das 
bobinas). Envelopes almofadados ou a 
caixinha lacrada de fonogramas sao 
ideais para esses envios. 

No caso de discos, convem embala- 
los entre dois pedacos de papelao rigi- 
do para evitar deformacoes. Se voce pre- 
ferir, pode tambem coloca-los em cai- 
xas metalicas rasas ou de plistico resis- 
tente. Em todos os casos, escreva do la- 
do de fora do pacote: "MEIO MAG- 
NETICO. FRAgIL*'. Para maior segu- 
ranca, envie registrado. 
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GERACAO DE 
GRAFICOS CD 



Todos os que ja tentaram sabem como e 
arduo o trabaiho de criar novos 
caracteres usando pa pel e lapis. Mas 
nem tudo esta perdido: eis aqui 
urn programa que facHHa esse trabaiho. 



Conhecidos pela sigla UDG, os bio- 
cos graficos sao urn dos recursos mais 
uteis ao programador grafico. O traba- 
iho de planeja-los e desenha-los inicial- 
mente no papel, entretanto, exige mui- 
to tempo e dedicacao. Alem disso, o cal- 
culo dos mimeros correspondentes a se- 
rem utilizados em linhas DATA e bas- 
tantecomplicado. Por outro Iado,se al- 
gum erro for cometido, no decorrer do 
processo, sua correcao tambem exigira 
urn esforco especial. 

O programa apresentado neste arti- 
go faciiita as coisas. Ele substitui o pa- 
pel milimetrado pela tela do micro, on- 
de poderemos desenhar o padrao do no- 
vo bloco grafico, O calculo dos valores 
a serem eolocados em linhas DATA 
tambem e feito automaticamente. 

Outra grande vantagem do programa 
e que ele nos deixa ver, em tamanho na- 
tural, o bloco que estamos criando e nos 
poupa o trabaiho de transferer os dados 
para outro programa, Varias teclas de 
controle nos permitirao nao so modifi- 
car o padrao do desenho, como tambem 
produzir o padrao inverso, ou vird-lo da 
esquerda para a direita. Tudo isso com 
um simples toque. 

Quando estivermos satisfeitos com o 
padrao criado, poderemos preserva-lo, 
gravando todo um conjunto de blocos. 
Uma vez gravado, esse conjunto pode- 
ra ser carregado para utilizacao em ou- 
tros programas, ou reeditado pelo pre- 
sente gerador de blocos graficos. 

O programa vira em duas partes. A 
primeira, neste artigo, cuida do aspec- 
to basico do gerador. Faz um quadricu- 
lado na tela, permitindo a movimenta- 
cao de um cursor para a criacao do pa- 
drao desejado . Na parte seguinte, serao 
apresentadas rotinas que possibilitam 
modificacoes mais sutis no caractere. 

Grave a primeira parte em fita ou dis- 
co para compieta-la posteriormente. De- 
vido a falta de alta resolucao grafica no 
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CRIE NQVQS CARA C TERES 

COMO COLOCAR PADROES EM 

UM BANCO DE MEMORIA 

TECLAS DE CONTROLE 

CORES EM ALTA RESOLUCAO 




ZX-81 e no TRS-80, nao mostraremos 
versSes para esses micros. 



Colocado em funcionamento, o pro- 
grama mostra na tela um quadriculado 
com 8x8 quadradinhos. Este e o "pa- 
pel milimetrado" no qual iremos criar 
nosso novo bloco grafico. Agora pode- 
mos escolher quais quadradinhos "acen- 
der" e quais "apagar" para criar um pa- 
drao. Para tanto dispomos de um qua- 
dradinho branco, que funciona como 
cursor, Desprovido de cor especial, es- 
te ultimo 6, na verdade, a versao mais 
brilhante — com atributo BRIGHT — 
do quadradinho que esta abaixo dele. 
Assim, podemos ver, ao mesmo tempo, 
onde o cursor esta e se esse quadradi- 



nho foi aceso ou apagado. O programa 
foi escrito de modo que as setas movi- 
mentem o cursor e o numero 0, e acen- 
dam ou apaguem os quadradinhos. 

Quern preferir outras teclas para mo- 
vimentar o cursor deve mudar os carac- 
teres dentro do IF I$= ... nas linhas 
6520 a 6555. 

O mesmo metodo serve para adaptar 
programa ao uso de joysticks. Quern 
dispuser de um desses perifencos deve 
consultar o artigo da pagina 348. 

Aqueles que nao quiserem recorrer as 
setas para mover o cursor terao de es- 
colher as novas teclas com bastante cui- 
dado, pois nenhuma das teclas de con- 
trole pode ser usada. Essa parte inicial 
do programa utiliza apenas tres teclas de 
controle (explicaremos melhor adiante), 
mas a parte seguinte usa mats. De quaJ- 
quer modo, as teclas C, I, M, P, R, S 



FnTTmTTT 



13 APUCACOES 13 



_' estao proibidas. 

Usando o teclado ou o joystick, po 
deremos movimentar o cursor dentro do 
quadriculado. Quando pressionarmos a 
iccla 0, no teclado (ou o botao do joys- 
tick, se forem feitas as modificacoes 
adequadas), veremos a cor do cursor 
mudar, indicando que o quadradinho 
onde ele esli foi "aceso". Se alterarmos 
a posiclo do cursor, provocaremos uma 
mudanca na cor do quadradinho. Des- 
sa maneira, podemos definir o padrao 
de novos blocos graficos. 

O programa oferece varias opcoes, 
que podem ser feitas a quaJquer rnomen- 
to da edicao. Uma deias e a de guardar 
o bloco no banco de memoria, Para tan- 
to, basta pressionar S — uma das teclas 
de controle que rneneionamos antes. 

O programa procurara saber entao 
em que lugar do banco de memoria de- 
vera guardar o bloco. O banco c repre- 
sentado pehs letras de A a U, mosira- 
das na tela acima do quadriculado. De- 
pois de termos teclado uma lei ra entre 
A e U, havera uma pausa, enquanto os 
niimeros correspondences ao padrau do 
bloco sao colocados no banco de memo- 
ria, usando POKE. Logo em seguida, o 
novo bloco aparecera na tela, ocupan- 
>eu lugar no banco. 

Outra opcao consiste em recupcrar 

•iloco guardado e promover sua edi- 

Para essa opcao usamos a tecla P; 

cguida, o computador pergunta que 



bloco desejamos. Em resposta, devemos 
pressionar a tecla correspondente; o blo- 
co desejado sera entao colocado no qua- 
driculado. 



GRAVE BLOCOS NA FITA 



Precisamos agora gravar o conjunto 
de blocos criados, de modo a utiliza-los 
em outros programas. Ao mesmo tem- 
po, e aconselhavel carregar urn conjun- 
to de blocos para edicao. 

Para comecar, pressionamos a tecla 
T. O programa perguntara entao se que- 
remos gravar ou carregar um conjunto. 
No primeiro caso, todo o conteiido do 
banco de mem6ria sera cuidadosamen- 
te gravado; portanto, nao devemos es- 
quecer de guardar ali o ultimo earacte- 
re que estava sendo editado. 

A prbxima parte do artigo explicara 
como usar os recursos do gerador para 
criar e utilizar muitos e muitos blocos 
graficos, incluindo como usar o conjun- 
to criado em outros programas. Novos 
recursos interessantes serao tambem adi- 
cionados ao programa. 

5 CLEAR USR *A"-16 

6 POKE 23675, PEEK 23675-16 
8 BORDER 4: PAPER 7: INK 0: 
CIS 

10 FOR N-USR "A" TO USR "B" + 7 
: READ A: POKE N,A: NEXT N 
15 POKE 23675, PEEK 23675+16 



PL 



PL 



'S" THEN GOTO 5 



2 POKE 2 3658,8 

30 LET X-ll: LET Y-8: LET NX- 

X: LET NY=Y 
100 LET AS-"": FOR N=144 TO 

164: LET AS-AS+CHRS N: NEXT N 
110 LET BS="": FOR N-65 TO 85: 

LET BS=BS+CHR$ N: NEXT N 
1000 FOR N=87 TO 151 STEP 8: 
OT N.48: DRAW 0.64: NEXT N 
1010 FOR N-48 TO 112 STEP 8: 
OT 8 7,N: DRAW 64,0: NEXT N 
2000 PRINT AT 3,5;A$ 
2010 PRINT INVERSE 1 j AT 2,5;B$ 
2400 GOSUB 6500 

2500 IF INKEYS="P" THEN GOTO 5 
000 

2510 IF INKEYS- 
100 

2520 IF INKEYS-"T" THEN GOTO 5 
200 

3900 GOTO 2000 

5000 INPUT "QUE CARACTER [A-U) ? 
". LTNE CS 

5010 IF CS<CHR$ 65 OR CS>CHR$ 8 
5 THEN GOTO 5000 
5020 LIT D-CODE C$+79: LET C$ = C 
HRS D: GOSUB 6000: GOTO 2000 
5100 TMPUT "GUARDAR EM QUE LETR 
A (A-U) ?", LINE C$ 
5110 IF CS<CHR$ 65 OR CS>CHRS 6 
5 THEN GOTO 5100 
5120 PRINT AT IB , 10 ; "GUARDANDQ" 
5130 FOR N=USR C$ TO USR CS+7 
5140 LET R=0: LET BIT=12B: FOR 
M-0 TO 7 

5150 IF PEEK (18432+ (N-USR CS) * 
32+M+lDOl THEN LET R=R+BIT 
5160 LET BTT=BIT/2: NEXT M: POK 











nn 




1 








































i 


1 








E N.R 

5] 70 NEXT N: PRINT AT 18,0;" " ; 

TAB 31;" " : GOTO 1000 

5200 INPUT "C(ABPEGAR) OU G (RAV 

AR)? 1 *. LINE CS: IF CSO'C" AND 

CSO'G" THEN COTO 1000 

5220 IF CS-"G" THEN GOTO 5250 

5230 INPUT "INTRODUZA NOME DO 
ARQUIVO", LINE NS : IF NS-" OR 
LEN NS>10 THEN GOTO 5230 

5240 SAVE NSCODE USR "A", 168: G 

0TO 100 

5 2 50 INPUT "INTRODU2A NOME DO 
ARQUIVO", LINE NS : IF LEN NS>1 

THEN GOTO 5250 

5260 PRINT AT 19,0;: LOAD N$COD 

E USR "A*: PRINT AT 20.0;* " ; TA 

B 31; " " : GOTO 100 

6000 LET B=USH "A"+8* (CODE C$-l 

44) 

6010 POKE 23675, PEEK 23675-16 

6020 FOR N-0 TO 7 

6030 LET V-PEEK (B+N) 

6040 LET BIT=I28: FOR M»0 TO 7 

6050' IF U>=BIT THEN PRINT AT 8 

+ N,1H-M;CHRS 144" LET V-V-BIT: 

GOTO 6060 

6055 PRINT AT 8+N , il+M : CHR$ 145 

6060 LET BIT=BIT/2: NEXT M 

6070 NEXT N: POKE 23675, PEEK 23 

675+16: RETURN 

6500 POKE Z2528+32*Y+X,120: PAU 

SE 

6510 LET IS=INK£YS 

6520 IF IS = "5" AND X>11 THEN L. 

ET NX=X-] 

6530 IF I$="B" AND X<18 THEN L 

ET NX=X+1 

6540 IF IS""6" AND Y<15 THEN L 

ET NY=V+1 

6550 IF I$-"7" AND Y>8 THEN LE 

T NY=Y-1 

6552 IF I$="0" THEN GOSUB 7000 

6555 IF IS="" THEN COTO 6580 

6560 POKE 225ZB+Y*32+X,56 

6570 LET X-NX: LET Y-NY 

6580 POKE 22528+Y*32+X,120 

6590 RETURN 

7000 POKE 23675, PEEK 23675-16 

7010 IF PEEK (18432+(Y-8)*32+X) 

=1 THEN PRINT BRIGHT 1 ; AT Y.X 

;CHR$ 144: GOTO 7030 

7020 PRINT BRIGHT 1 ; AT Y,X;CHR 

S 145 

7030 POKE 23675, PEEK 23675+16: 

RETURN 

9000 DATA 85.171,65,171,85.171, 



85.255, 



.1,1,1 



Quando o programa e exeeutado, urn 
quadriculado de 8 x 8 pomos surge na 
tela, Este sera o "papel quadriculado" 
onde planejaremos a forma de nosso 
bloco grafico. 

Temos tambem um cursor em forma 
de eruz. Conforme as cores escolmdas, 
esse cursor sera pouco ou muito visivel, 
podendo ate mesmo desaparecer quan- 
do sua cor for "transpareme" (codigo 
de cor zero). O programa foi escrito de 
maneira que as setas movimentern o cur- 
sor e a barra de espaco acenda ou apa- 
gue o ponto. 

Se voce quiser utilizar um joystick pa- 
ra mover o cursor (os pontos sao ace- 
sos pelo botao de disparo), deve mudar 
valor das instrucdes STICK e STRKi, 
nas iinlias 70 e 20, respectivamente. 

Assim, o cursor pode ser movimen- 
tado denirn do quadrieuiado. Quando 
pressionarmos a tecla de espaco, o pon- 
to que esta sob o cursor sera aeeso, as- 
sumindo a cor de f rente; gc pressionar- 
mos a tecla novamente, ek seta apaga- 
do, adotando a cor de fundo. 

No inieio do programa, a cor de fun* 
do e branca e a cor de frente, preta. Se 
quisermos nwdificar esta ultima, deve- 
pressionar a tecla C. O computa- 
dor nos perguniara a seguir o eddigo da 
nova cor de frente, ou scja, um numero 
de a 15 em decimal. A escolha dessa 
cor pode ser feita com apenas um toque; 
para isso, devemos digitar seu numero 
em hexadecimal (de a F). Ja a cor de 
fundo pode ser modificada pressionan- 
do-sc a tecla F. 

E importanie icr em mente as regras 
de apresentacao das cores na tela de al- 
ta resolucao do MSX. Cada conjunto de 
oho pontos adjacentes na horizr 
correspondentes a uma linha do n 
bloco grafico, lem apenas uma cor de 
frente e uma 
gunda cor de frente for atribukla a um 

os ponti 
linha do bIo< 

icsrao acontecera 
apag tentarrm 



segunda cor de fundo. Em nos 
grama, esses cuidados ficam por sua 
conta; o computador pode mostrar ate 
oilo cores numa mesma linha de bloco 
no quadriculado. No momento em que 
esse bloco for colocado na iela, em ta- 
manho natural, apenas as duas ultimas 
cores — uma de frente e outra de fun- 
do — aparecerao. 

Essa limitaeao no numero de cores 
pode causar inconvenientes. Se uma li- 
nha do bloco tiver a cor de frente igual 
a de fundo, o tracado do quadriculado 
naquela linha desaparecera. Neste caso, 
de pouco Valeria modificaf o programa, 
fazendo-o redesenhar o quadriculado; 
isso, na verdade, criaria novos proble- 
mas. Na realidade, o tracado esta alir so 
nao podemos ve-lo.. porque ele tern a 
mesma cor do fundo, 

O programa tem ainda ouiras t 
[veis a qualqucr n 
durante a edicao de um bloco. Lima de- 
'guarda" o bloco em um banco de 
memdria, que fica protcgido na pari 
ta da memdria. Para fazcr isso, b 
apcrtar a tecla G. 

O programa solicits enfao um mil 
orrespondente a posicao que o blo- 
co ocupara no banco de memdria 
numero pode valer de a 255. Uma vez 
informado da posicao desejada, o com- 
putador mostra o bloco, em tamanho 
natural.no alto da tela. Ali fica repre- 
sentado todo o conteudo do banco de 
memdria.. Um mesmo bloco pode ser 
guardado em varias posicoes diferentes. 

Outra opcao oferecida e a de "recu- 
perar" um bloco que esteja no banco, 
trazendo-o de volta ao quadriculado, 
onde ele pode sofrer modificacoes. Isto 
ito pela tecla R. Note que apenas o 
desenho do bloco e trazido para o qua- 
driculado. O bloco permanece 
guardado no banco, e sd 

lo quando 
outro for guardado na 
mesma posigao. 
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COMO GRAVAR OS BLOCOS EM FITA 



Apbs tanto trabalho, voce certamente 
vai querer gravar os blocos criados pa- 
ra um eventual uso futuro. O programa 
dispoe, para tanto, de uraa funcao de 
gravacao em fita, acompanhada de ou- 
tra, que permite a teitura de um banco 
previamente gravado. 

Para gravar ou ler unrta fita, e preci- 
so pressionar a tecla T. O computador 
perguntara entao se voce deseja um SA- 
VE ou um LOAD. Se voce escolher gra- 
var, o banco de memdria sera transfert- 
do em bloco para a fita. Portanto, nao 
se esquega de guardar o ultimo bloco 
que estava sendo editado. 

O banco de mem6ria utilizado nada 
maJs e do que uma regiao da memoria 
do micro, protegida para esse fim. Ela 
contem, no entanto, alguns valores inu- 
teis para nos (lixo, no jargao do progra- 
mador). Esse "lixo" nao e visivel duran- 
te a execucao do programa, mas pode 
ser transferido para a fita, quando nao 
usamos todas as 256 posicoes . Ele torna- 
se visivel quando carregamos um ban- 
co da fita. 

Em geral, as posicoes multiplas de 16 
a present am pantos aleat6rios. Esse pro- 
blema, porem, s6 afeta posicoes nao 
ocupadas, nunca interferindo nos blo- 



cos. Da mesma forma, se interromper- 
mos o programa por qualquer motivo, 
ao voltarmos a executa-lo, nao veremos 
o banco na tela; mas todos os blocos 
criados estarao la, podendo ser recupe- 
rados, especialmente quando soubermos 
suas posicoes. 

Quando quisermos ler um conjunto 
de blocos da fita, o programa oferecera 
a opcao de ver seu conleudo por meio 
da tecla V. Se soubermos exatamente 
onde estao os blocos, podemos poupar 
tempo e trabalho. Nesse caso, a tecla 
< ENTER > nos trara de volta a edicao 
(nao veremos nada na tela, mas todo o 
contend© do banco estara la, podendo 
ser recuperado). 

A prdxima parte deste artigo explica- 
ra como utilizar estes e outros recursos 
do programa para criar blocos graficos, 
bem como as formas de utiliza-los em 
outros programas. 

10 CLEAR 200,&HD000:SCR£ENl:FOR 

1-26*8 TO 28*8+7 :A=VPEEK (BASE ( 
7)+I) :A$-A$+CBR${A) :NEXT:COLOR 
1,15,15:C-1:F-15:C1-C:C2-F:SCRE 
EN 2.0 

20 DIM 8(8,8) : SPRITES (0) -AS: ON 
STRIG GOSUB 500 , 500 : 3TRIG (0) ON 
30 GOSUB 1430 
50 X=96:Y=64:G0T0 200 
60 KS-INKEYS:IF K$-"" THEN 60 
70 A=STICK(0) 



T(B,170) :PRINT#1. "o nUaiero do b 

loco :":CL0SE ]: GOSUB 9200 

1010 X$-INKEYS:IF X$-"" THEN 10 

10 

1015 IF XS»CHRS(13) THEN GOSUB 

9100: GOTO 1050 

1020 IF X$=CHR$(29) AMD N>0 THE 

N N=N^l:GOSUB 9200:GOTO 1010 

1025 IF XS=CHR$(28) AND N<255 T 

HEN N=N+1: GOSUB 9200: GOTO 1010 

1030 IF XS-CHRSOJ) AND N>9 THE 

N N=N- 10: GOSUB 9200: GOTO 1010 

1040 IF X$=CHR$(30) AND N<245 T 

HEN N=N+10:GOSUB 9200:GOTO 3010 

1045 GOTO 1010 

1050 FOR 1=0 TO 7:P(T)=PEEK(LHD 

100+N*8+T> 

1052 FOR T=0 TO 7: P (I ) =PEEK (LHD 

100+N*8+I) 

1055 C(I)=PE£KUHEl0O+N*B+I> 

1060 FOR J- 7 TO STEP -J 

10 70 B(I,J)-PU;-lNT(Pm/2)*2: 

Pm=INT{P(I)/2) 

1080 IF B(I,J)=0 THEN LINE (96+ 

8*J+i ,64+8*1+] )- ( 96+8 *J+6, 64+8* 

1+7) .C(T) AND15.BF ELSE LINE (9 

6+8*J+] .64+8*1+1 ) - (96+8*.I+6.64 + 

8*1 + 71 , (C(T)-fC(I>AND15) )/16,BF 

1090 NEXT J, 1 : RETURN 

14 10 FOR T-96 TO 160 STEP 8 : LIN 

E (1.64) - (1,128) . 1 :NEXT 

1440 FOR 1=64 TO 128 STEP 8: LIN 

E (96. II- (160.1) .1 :NEXT 

1450 RETURN 

1500 N=0- GOSUB 9000 : PR (NT|1 . "Us 

e as getas pari] epco lher" : PRESE 

80 ON A GOTO 90,130,100,130,110 

.130,120,130 

85 GOTO 130 

90 IF Y>64 THEN Y=Y-8:GOT0 200 

95 GOTO 200 

100 IF XC152 THEN X=X+8:GOTO 20 



105 GOTO 200 , 

110 IF Y<12Q THEN Y=Y+8:G0T0 20 



115 GOTO 200 

120 IF X>96 THEN X=X-8:GOTO 200 

125 GOTO 200 

1.10 IF K$«"G" THEN GOSUB 1500:G 

OTO 200 

140 IF K$=*R" THEN GOSUB 1000:G 

OTO 200 

150 IF KS-"T" THEN GOSUB 2000:0 

OTO 20 

160 IF KS="C" THEN GOSUB 2500:G 

OTO 20 

170 IF K5="F" THEN GOSUB 2600:G 

OTO 200 

200 IF C+l>15 OR C+1=F THEN S=C 

ELSE S=C+1 
210 PUT SPRITE 0, <X,Y) ,S 
220 GOTO 60 

500 SWAP C1,C2:LINE (X+l,Y+l)-< 
X+6.Y+7) ,C2,BF 

510 IF C2=F THEN B ( (Y-64) /8 , (X- 
96)/8)=0 ELSE B( (Y-64 ) /8 , (X-96) 
/81-1 

520 C((Y-64)/8)=C*16+F 
530 RETURN 

1000 N-0:GOSUB 9000 : PRINTfl , "Us 
e as setas para esr.alher" : PRESE 
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Tlfl, 170) ?PRINTtl,"o numero do b 

loco :":CL0SE l:GOSUB 9200 

1510 XS=INKEY$:IF X$-"" THEN 15 

JO 

1515 IF XS-CHR$(13> THEN GOSUB 

9100rGOTO 1550 

1520 IF XS=CHR$C29) AND N>0 THE 

N N=N-J:GOSUB 9200rGOTO 1510 

1525 tF XS=CHRSf28) AND NC255 T 

HEN N=N+1 ! GOSUB 9200'GOTO J510 

15.10 IF X$=CHR$C31) AND N>9 THE 

N N=N-I0:GOSUB 9200:GOTO 3 510 

1540 IF X$=CHRSC30) AND N<245 T 

HEN N=N+J0:G0SUB 9200:GOTO 1510 

1545 GOTO 1510 

1550 FOR 1-0 TO 7: P (I) -Or FOR J= 

TO 7 

1560 PfIl-P(I)+B(I,J)*2*(7-J) 

1570 NEXT J 

1580 POKE K.HD100+N*8 + I,P(I) 

1585 POKE S.H£10D+N*8 + I,C(I) 

1590 VPOKE BAS£U2)+N*8+I,P(I} 

1600 UPOKE BASEtll>+N*8+I,C(I) 

1610 NEXT I: RETURN 

2000 GOSUB 9000 : PRINTI1 ," (S) AVE 

OU (L)OAD ?* 
2010 X3-INKEVTS: JF XSO'S" AND X 
90"L" THEN 2010 
2020 GOSUB 9100: IF XS»"L" THEN 
2100 

2030 GOSUB 9000:PRTNT|l,"Poaici 
one o gravador" ; PRESET (8, 1 70) : P 
BlNT#l,"e aperte <ENTER>" 
2035 IF INKEY3<>CHRSU3> THEN 2 
35 

2040 BSAUE "CAS : UDG" , LHD10O , (LHF 
37F 

2050 GOSUB 9100: RETURN 
2100 GOSUB 9000:PRINT|1 ,'Pobici 
one o gravsdor" ; PRESET (8. 170) :P 
HINTIl,"^ aperte CENTER}" 
2105 IF INKEYSOCHRSU3) THEN 2 
105 

2110 BLOAD "CAS:" 
2120 GOSUB 9100 

2130 GOSUB 9000 :PRINT*1 , " (V) pa 
ra ver o banco" : PRESET (8 . 1 70) : P 
RINTil, " (ENTER) para voltar a e 
dicao" 

2140 XS=INKEYS:IF X$="" THEN 21 
40 

2150 IF XS=CHR5(13I THEN GOSUB 
9100 : RETURN 

2160 IF XSO"U" THEN GOTO 2140 
2) 70 FOR N=0 TO 255 
2180 FOR .1 = TO 7 

2J90 UPOKE BASEU2)+N*8+J.PEEK( 
8,HD100+N*8+J) 

2200 UPOKE BASE : 1 ) +-N«B+J . PEEK ( 
S.HE100+N*8+J) 
2220 NEXT J,N 
2 230 GOSUB 9 1 00 -RETURN 
2500 GOSUB 9000 : PR JNT#1 , "Numero 

da cor de f rente (0-F)" 
2510 X$=INKEY$;IF XS=*" THEN 25 
10 

2515 IF X$<"0" OR (X5>"9"AND X3 
CA") OR X$>"F" THEN 2510 
2520 C=UAL{"*.H"+X$) :C1=C:CZ = F 
2530 GOSUB 9100:RETURN 
2600 GOSUB 9000:PRINT|) , "Niimero 

da cor de fwndo (0-F)" 



2610 XS=INKEYS:IF X$="" THEN 26 

10 

2615 IF XS<"0" OR (X$>"9"AND XS 

<"A") OR XS>"F" THEN 2610 

2620 F«UAL("S.H"+X$) :Cl=C:C2=F 

2630 GOSUB 9] 00 r RETURN 

9000 OPEN "GRP:" FOR OUTPUT AS 

II : PRESET (8, 160) : COLOR 1 ,15: RET 

URN 

9100 CLOSE 1:LINE CO , 160) - (255 , 

191) ,15.BF;RETURN 

9200 LINE (190,168)-<255,191) ,1 

5 . BF : GOSUB 9000 : PHESETU90 , 3 6B) 

: PRINT* 1 ,N:CLOSEl rHETURN 
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Ate agora, sempre que precisavamos 
de um desenho em alta resolucao, usa- 
vamos o comando DRAW. Este e mui- 
to bom para figuras moveis, devido a ve- 
locidade de operacao. Ele apresenta, 
contudo, dois ineonvenientes: a exten- 
sao dos dados, ja que as regras de defi- 
nicao das figuras sao bem complicadas, 
e a dificuldade na utitizacao de cores, 
pois as figuras ficam deformadas quan- 
do eoloridas. 

O Apple e o TK-2000 tambem podem 
mostrar na tela caracteres definidos pe- 
lo usuario, usando regras bem seme- 
Ihantes as dos dernals micros. Tais re- 
gras devem ser empregadas quando for 
importante a cor, mas nao a velocida- 
de. Convem, nesse caso, consultar as se- 
goes correspondentes, dedicadas a ou- 
tros computadores, 

Quando executamos o programa, ve- 
mos um quadriculado de 8 x 8 pontos 
na tela. Este sera o "papel quadricula- 
do" onde desenharemos nosso bloco 
grafico. 

Temos tambem um cursor, na forma 
de um ponto. Para movimenta-lo, uti- 
lizamos as teclas Z, X, P e L, corno de 
costume. Usando a barra de espaco po- 
demos "acender" o ponto correspon- 
dente, apagando-o com a tecla A. 

Para obtermos caracteres coloridos, 
precisamos entender como o Apple e o 
TK-2000 representam cores na tela. Em- 
bora nosso quadriculado tenha oito 
pontos de largura (ou seja, na horizon- 
tal), na tela aparecerao apenas os sete 
primeiros (a partir da esquerda). Sao, 
portanto, quarenta posicoes com sete 
pontos cada, resultando nos 280 pontos 
da tela de alta resolucao. Se um ponto 
da linha est i ver apagado, aparecera em 
preto. Caso esteja aceso, contudo, sua 
cor vai depender de sua posicao na te~ 
la. Se o ponto ocupar uma posicao par, 
sera violeta. Se ocupar uma posicao im- 
par, sera verde. Tais regras se aplicam 
quando o oitavo ponto, que fica na ex- 
trema direita do bloco e nao aparece na 
tela, est i ver apagado. Se o oitavo pon- 



to estiver aceso, as cores violeta e verde 
serao substituidas par azul e vermelho, 
respectivamente. Se dois pontos adja- 
centes estiverem acesos, assumirao a cor 
branca. 

Existem, assim, seis cores disponiveis 
no modo de alta resolucao. Sua exibi- 
gao, porem, esta sujeita as seguintes li- 
mitacoes: 

1. Ponto em coluna impar e preto, 
violeta ou azul. 

2. Ponto em coluna par e preto, ver- 
de ou vermelho. 

3. Cada linha de bloco pode ter as co- 
res violeta e verde ou azul e vermelha. 
Nao e possivel misturar cores de grupos 
diferentes na mesma linha. 

4. Dois pontos adjacentes e acesos fi- 
cario brancos, mesmo que estejam em 
linhas diferentes. 

Deve-se ressaltar ainda que as cores 
dependem da posicao do ponto na tela, 
e nao no bloco grafico. Isto quer dizer 
que a cor do ponto varia com a sua 
coordenada horizontal — de a 279. 
Como a largura de cada linha de bloco 
na tela £ de sete pontos, quando plane- 
janios um bloco nao sabemos quais os 
pontos que irao ocupar posicoes pares 
ou impares. Uma vez que tenhamos de- 
senhado o nosso bloco, podemos guar- 
da-lo no banco de memdria do progra- 
ma. Para isso, basta apertar a tecla G. 
O computador pergunta entao em qual 
posigao do banco vamos colocar o ca- 
ractere — a 300. Informado esse nu- 
mero, o caractere e mostrado na tela, em 
posicao correspondente k do banco e em 
tamanho natural. Sua cor dependera da 
posicao no banco. Para facilitar o tra- 
balho, e conveniente armazenar os blo- 
cos nas posicoes pares, onde e possivel 
planejar as cores, pois as colunas da te- 
la coincidem com as do bloco. Nas po- 
sicoes impares, as cores sao de grupos 
invertidos, ja que as posicoes pares e im- 
pares sao invertidas. 

O banco nada mais e que uma por- 
cao protegida de memdria. Ele pode 
ocupar a pagina 2 de graficos, tornan- 
do o trabalho mais simples. Essa pagi- 
na, porem, nao deve ser usada enquan- 
to o programa estiver no micro. 

O uso da tecla R permite recuperar 
um bloco gravado no banco, trazendo 
seu desenho para o quadriculado. O blo- 
co recuperado, por sua vez, permanece 
no banco. Um mesmo bloco pode ser 
guardado em diferentes posicoes. 



COMO GRAVAR EM DISCO E FITA 



Aqueles que dispoem de unidade de 
disco podem usar a tecla T para gravar 
ou carregar todo o conteiido do banco 
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de memdria. Feito isso, o computador 
perguntara qua! a opcao desejada. Se 
voce selecionar a primeira op?ao, o con- 
teudo do banco sera gravado. Nao se es- 
queca, portanto, de guardar o ultimo 
bloco editado. 

Quando carregamos um banco, as 
posicoes que nao contem blocos sao 
preenchidas por linhas brancas. 

Quern nao dispoe de disco, ou tem 
um TK-2Q00, deve parar o programa — 
com < RESET > ou <CTRLXxC> 
— para poder gravar o banco de mc- 
rnoria em flta. Para tanto, e precise usar 
o monitor, digitando CALL -151 - 
ou LM no TK-2000. A seguir, digite (no 
Apple): 

4000. 5FFF U 

No caso do TK-2000, temos algumas 
modificacoes: 

A00Q.BFFF U "noae" 

Para ler a fita, troque a letra W por R. 

Depois de ter earregado o banco, exe- 
cute novamente o programa. O conteu- 
do do banco podera ser visualizado por 
meio da tecla T (caso tenham sido fei- 
tas as modificacoes sugeridas). 

Na proxima parte do artigo, traremos 
mais informacoes sobre a criacao e uti- 
lizacao de blocos graficos no Apple. 
Alem disso, novas funcoes serao acres- 
centadas ao gerador de blocos. 
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10 HOME 

BCB.8) 
20 E = 16364 :T - 8192 
30 GOSUB 1030 
50 X - 108 : If - 72: GOTO 200 
60 GET KS:LX = X:LY - Y 
70 IF KS = "Z" AND X > 108 THE 
N X = X - 8: GOTO 200 
B0 IF KS = "X" AND X < 164 THE 
N X = X + 8: GOTO 200 
90 IF KS - "P" AND ¥ > 72 THEN 

Y - ¥ - 7: GOTO 200 
100 IF KS - "L" AND Y < 121 TH 
EN Y = If + 7: GOTO 200 
110 IF KS ■ " " THEN B<{Y - 72 
) / 7, (X - 108) / 8) - 1: HCOLO 
R- 2: GOSUB 500: GOTO 200 
120 IF K$ - "A" THEN B((Y - 72 
) / 7, (X - 108) / B) - 0: HCOLO 
R*= 0: GOSUB 500: GOTO 200 
130 IF KS - "G" THEN GOSUB 15 
00: GOTO 50 

140 IF KS - *R* THEN GOSUB 10 
00: GOTO 50 

150 IF KS - "T* THEN GOSUB 20 
00: GOTO 50 
200 HCOLOR= 0: HPLOT LX + 3, LY 

+ 4 TO LX + 4.LY + 3: HPLOT LX 

+ 4 , LY + 4 TO LX + 3 , LY -I- 3 
210 HCOLOR- 5: HPLOT X + 3,Y + 

4TOX+4.Y+3: HPLOT X + 4, 
Y+4TOX+3.Y+3 



230 GOTO 60 

500 FOR K = X + 1 TO X + 6: IIP 

LOT K.Y + 1 TO K.Y + 6: NEXT : 

RETURN 

1000 HOME : UTAB 22: INPUT "QU 

AL O NUMERO DO BLOCO ?";N: IF N 

> 320 THEN 1000 

1005 FOR I • TO 7:P(I] = PE 

EK (E + N * 8 + I) 

1010 FOR J - TO 7 

1015 B(I.J) ■ PCD " INT (P(I) 

/ 2) * 2:PU> - INT <PU) / 2 
> 
1020 HCOLOR- 2 * B<I,J): FOR K 

- 109 + 8 * J TO 114 + 8 * J: 
HPLOT K,73 + 7 * I TO K.7Q + 7 
* I: NEXT K.J.T 
1025 HOME : RETURN 
1030 HCOLOR- 3 

1040 FOR I - 108 TO 172 STEP 8 
: HPLOT 1,72 TO 1,127: NEXT 
1050 FOR I - 72 TO 128 STEP 7: 

HPLOT 108,1 TO 172,1: NEXT 
1060 RETURN 

1500 HOME : UTAB 22; INPUT "QU 
AL O NUMERO DO BLOCO ?";N: IF N 

> 320 THEN 1500 

1.502 L = INT {N / 40) :C - N - 

L * 40 

1505 FOR I = TO 7:P(I) = 0: 

FOR J = TO 7 

1510 PU) - PCD + B(I,J) * 2 ~ 

J 
1520 NEXT J: POKE E + N * B + 
I, PCI) 

1525 POKE T + L * 128 + C + 10 
24 * I.P(I) 

1530 NEXT I: HOME : RETURN 
2000 HOME : UTAB 22: INPUT " CS 
)AVE OU (L)OAD ?";A$: IF A$ < 
> "S" AND AS < > "L" THEN 2000 
2010 INPUT "NOME DO ARQUIVO 7" 
' ARS 

2020 IF AS - "L" THEN 2100 
2030 PRINT : PRINT CHRS <4)s" 
BSAVE ";AHS;".A" ;E;" ,L3000" 
2040 HOME : RETURN 
2100 PRINT : PRINT CHRS (4);" 
BLOAD ";ARS 
2110 FOR N ■ TO 320 
2120 L - INT (N / 40) :C = N - 
L * 40 

2130 FOR I - TO 7 
2140 POKE T + L * 12B + C + 10 
24 * I, PEEK (E + N * 8 + I) 
2150 NEXT I.N 
2160 HOME : RETURN 

Aqueles que nao dispoem de unida- 
de de disco nao devem copiar as linhas 
2000 a 2100. Uma instrucao REM deve 
ser colocada na linha 2000. 



EQ 




Os usuarios do TK-2000 nao devem 
copiar as linhas 2000 a 2100, fazendo 
ainda as seguintes modificacoes: 

20 E ■= 40960 :T - 8192 



No Spectrum podem-se criar novos blocos. 



Quando colocamos o programa pa- 
ra funcionar, ele nos faz duas pergun- 
tas iniciais, relacionadas com o tipo de 
bloco grafico que queremos criar. 

A primeira se refere ao PMODE de- 
sejado. PMODE4 nos da uma grande 
resolucao em preto e branco ou em pre- 
to e verde apenas. A segunda opcao, 
PMODE3, tem uma resolucao tres ve- 
zes mais baixa na horizontal — pontes 
com o triple de largura — , mas permite 
que usemos quatro cores. 

A segunda pergunta diz respeito ao 
conjunto de cores que vamos utilizar. 
SCREENG no PMODE4 nos da preto e 
verde, enquanto em PMODE3 nos da 
vermelho, azul, verde e amarelo. 
SCREEN 1 nos da preto e branco em 
PMODE4 e ciano, magenta, laranja e 
branco em PMODE3. 

Feitas estas opcoes, nao poderemos 
mais mudar o PMODE sem usar RUN 
novamente, embora possamos mudar o 
SCREEN. 

A seguir, o computador coloca na te- 
la o quadriculado, que e a base para o 
desenho do bloco grafico. Podemos en- 
tao usar as setas para mover o cursor e 
assim desenhar o bloco. 

Com o cursor sobre um determina- 
do ponto, devemos pressionar < EN- 
TER > para acender esse ponto. Para 
apagar pontos, basta mudar sua cor, co- 
mo verernos mais adiante. 

Dessa forma, desenharemos nosso 
bloco rapida e facilmente. A porcao se- 
guinte do programa tera uma opcao de 
uso de joystick. 

Como podemos observar, o quadri- 
culado nao e o unico quadrado na tela: 
abaixo dele ha mais oito e a sua direita, 
mais dois. 

Os dois da direita sao versoes atuali- 
zadas do bloco criado, em modo normal 
e invertido. A medida que desenhamos, 
esses dois "modelos" vao mudando, de 
maneira a possibihtar a visualizacao do 
resultado em lamanho real. 




.ou uisr 01 caracleres do proprlo micro, Blocos malt largos no TRS-Color. 



Os oito quadrados na parte inferior 
da tela servem para guardar os blocos 
que ja foram criados . Isso significa que 
ate oito blocos podem ser guardados ao 
mesmo tempo no banco de mem6ria do 
programa. Aiguns desses blocos nao sao 
visfveis, uma vez que tSm pontos com 
a mesma cor do pano de fundo, Eles nSo 
mudam junto com a edicao, mas sim 
quando guard amos no banco um carac- 
tere recim-criado. 



AS TECLAS DE CONTROLE 



O programa tern uma se>ie de tcclas 
de eontrole, que nos possibilitam fazer 
opcSes. 

Duas delas sao fundamentals: as te- 
clas SeO. S guarda no banco de me- 
moria o bloco que foi editado. Quando 
pressionamos essa tecla, o programa nos 
pede um numero de 1 a 8, que corres- 
ponde a posiciio do bloco no banco. Is- 
so permite que substituamos qualquer 
um dos blocos do banco. 

Ja a tecla G, seguida do numero cor- 
respondente, faz a operacao inversa — 
recupera um bloco do banco e o coloca 
no quadriculado. Embora o programa 
utilize uma rotina em Hnguagem de m&- 
quina, o processo leva aiguns segundos. 

Recuperar um bloco nao modifica o 
conteiido da posicio correspondente no 
banco. Assim, podemos recuperar um 
determinado bloco do banco, trazendo- 
o para o quadriculado quantas vezes 
quisermos, desde que nao guardemos 
nada na mesma posicio do banco. 

Essa parte do programa utiliza duas 
outras teclas de eontrole. Se pressionar- 
mos C, mudaremos a cor. Se estivermos 
em um modo com quatro cores, pode- 
mos usar qualquer uma delas. No mo- 
do de duas cores, escolhemos uma ou 
outra. Sefecionada a cor adequada, 
podemos apagar qualquer ponto, corri- 
gindo, assiro, eventuais erros cometidos. 
Apos digiar C, devemos informar a nu- 
mero da cor desejada. 

A ultima tecla de eontrole dessa par- 



te do programa i T, que permite a gra- 
vacao ou a recuperacao de todo um ban- 
co de mem6ria contendo oito blocos. 



10 CLEAR 200, 30998:DEFUSRO-3100 



20 T-0:FOR K-0 TO 43: READ N : T-T 

+N:P0KE K+31000.N:NEXT:READ C:I 

r TOC THEN PRINT *ERR0 NOS DAD 

OS": END 

50 DATA 189,179,237,31,3,142,12 

3,12,230,192,134,8,183,121,68.7 

9,88,73,122.121,68,125,121,23 

60 DATA 39,5,88,73,122,121,66,1 

67,128,125.121.68,38,233,140.12 

5,76,38,221,57.4725 

110 CLSiPRINT'SELECIONE MODO OR 

AFIC0 (3-4} "J 

120 A3-INKEV$:IF AS<"3" OR AS>" 

4" THEN 120 

130 T-5-VAL (AS) : PRINT AS 

140 PRINT"SELECIONE TIP0 DE TEL 

A(0-1>"; 

150 AS-INKEYS:IF AS<"0" OR AS>" 

1" THEN 150 

160 PRINT AS:ST«VAL<A3) 

200 PMODE 5-T.l 

210 DIM A(14) ,C1(1) ,C2(1) ,C3CU 

,C4U) 

220 PCLS 4:GET(0,0)-(9,S) ,C4,0 

230 PCLS 3:GET(0,Q)-(9,5) ,C3,0 

240 PCLS 2:GET(0,0)-{9,5) ,C2,0 

250 PCLS l:GET(0,0)-(9.5) ,C1,Q 

260 PCLS: SCREEN 1 . ST 

270 C— l:F-3*T-2:GOSUB 2070 

280 FOR X-6 TO 255 STEP 32:C-(C 

+1) AND 3:COLOR C+l : LINE (X , 165 ) 

-(X+23,188) .PSET.BF: NEXT: COLOR 

6-T 

290 FOR X-3 TO 147 STEP T*6:LIN 

E (X,3)-(X,147) ,PSET:NEXT 

300 FOR Y-3 TO 147 STEP 6 ; LINE 

(3.Y)-(147.y>.PSET:NEXT 

310 X-12;¥-12 

320 Xl-X*6+4:Yl-Y*6+4 

330 PUT(Xl,Yl)-(Xl-t-5*T-l.Yl+4) , 

CI. NOT 

340 AS-INKEYS 

350 GOSUB 1500 

360 IF AS-"" THEN 380 

370 ON INSTRCPCTROSMIV'.AS) GO 

SUB 2200,2500,2300,2800.2600,27 

00,2900,2100,2400 

380 IF Y<0 THEN Y-23 

390 IF Y>23 THEN Y-0 



400 IF X<0 THEN X-24-T 

410 IF X>23 THEN X"0 

420 OOTO 320 

1500 PUT (Xl,Yl)-(Xl+5*T-l,Yl+4 

J.Cl.NOT 

1510 IF PEEKC338W91 GOSUB2000 

1520 IF PEEK(343)-Z47 THENX-X-T 

1530 IF PEEK (344) "247 THENX-X+T 

1540 IF PEEK (341) -247 THENY-Y-1 

1550 IF PEEK (342) -247 THENY-Y+1 

1560 RETURN 

2000 GOSUB 4000 

2010 P-3*Y+INTCX/B) :PX-7-X+8*IN 

T(X/8) 

2020 IF T-2 THEN VL-F-1 ELSE VL 

— (F-l) 

2030 PK-PEEK(P+VARPTR(A(0})) 

2040 PK-PK AND(255.I-2*PX) :IF T 

-2 THEN PK-PK AND (255 . 1-2" (PX-1 

)) 

2050 PK-PK OR VL*2*(PX+1-T) 

2060 POKE P+VARPTR(A(0) ) , PK 

2070 PUT <216,10)-<239.33) .A. PS 

ET 

2080 PUT (216,70)-(239.93) .A, PR 

ESET 

2090 RETURN 

2100 RETURN 

2200 RETURN 

2300 AS-INKEYS: IF AS<>"S" AND A 

3<>"L" THEN 2300 

2310 IF A$-"S" THEN 2330 

2320 CLOADM: SCREEN 1, ST: RETURN 

2330 CSAUEM"", 6800, 7679, 6800 

2340 SCREEN 1 , ST : RETURN 

2400 ST-l-ST: SCREEN 1 , ST : RETURN 

2500 AS-INKEYS: IF AS<"0" OR AS> 

"8" THEN 2500 

2510 F-((VAL(AS)-1)AND 3)-t-l:RET 

URN 

2600 AS-INKEYS: IF AS<"1' OR A3> 

"8* THEN 2600 

2610 J-UAL{AS)-1 

2620 GET(J*32+8,165)-{J*32+31.1 

88) .A 

2630 GOSUB 3000: GOTO 2070 

2700 AS-INKEY3:IF AS<"1" OR A3> 

"8" THEN 2700 

2710 J-VAL(A$)-1 

2720 PUT(J*32+8.165)-{J*32+31.1 

88) ,A,PSET 

2 7 30 RETURN 
28 00 RETURN 
2900 RETURN 

3000 CL-F:POKE 30999 , T-l : N-USRD 

(VARPTR(ACO))) 

3010 FOR K-0 TO 23:F0R J-0 TO 2 

3 STEP T: F-PEEK ( 31500+K*24/T+J 
/T)+3-T 

3020 Xl-J*6+4: Yl-K*6+4 
3030 GOSUB 4000:NEXT J,K:F-CL:R 
ETURN 

4000 ON F GOTO 4010,4020,4030,4 
040 

4010 PUT(Xl,YD-(Xl+5*T-l.Yl+4) 
, CI, PSET: RETURN 

4020 PUT(Xl,Yl)-CXl+5*T-l,Yl+4) 
,C2, PSET: RETURN 

4030 PUT(Xl,Yl)-(Xl+5*T-l.Yl+4) 
,C3, PSET: RETURN 

4040 PUT(Xl.Yl) -(Xl+S*T-l.Yl+4) 
,C4, PSET: RETURN 



495 
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A FUNCAO INKEY$ 
NO TK 2000 



Os usuarios do TK-2000 freqiiente- 
mente se decepcionam quando ten tarn 
sem sucesso adaptar programas de jo- 
gos feitos para outras maquinas, como 
o MSX ou TRS-Color. A causa dessa 
frustracao e a ausencia dc uma funcao 
muito import ante: o com an do INKEVS. 

O que faz o INKEYS? Existe uma 
maneira de substitui-to por algum ou- 
tro comando proprio do TK-2000, que 
cumpre a mesma funcao? A resposta 
(positiva) ja foi brevemente abordada 
no artigo E agora... O que Fazer? (pa- 
gtna 161). Aqui vamos estudar tudo is- 
so mais detalhadamente. Assim, voce 
mesmo podera adaptar os programas dc 
jogos mostrados nos artigos das pagtnas 
28, 46. 61, 121 e 153. 



O INKEYS na linha 1010 do primei- 
ro programa e uma funcao do BASIC, 
cujo objetivo e "varrer" o teclado e ve- 
rificar se atguma tecla foi pressionada. 
Se isso acontecer, o caractere corrcspon- 
dente sera devolvido ao programa. No 
caso da linha 1010, esse caractere sera 
armazenado na variavel AS. Se nenhu- 
ma tecla tiver sido pressionada, o cor- 
dao vazio, "", sera retornado. Por is- 
so, ha necessidade da linha 1020. 

Ja o comando GET nao e uma fun- 
cao. De forma semelhante ao comando 
INPUT, ele interrompe o programa e fi- 
ca aguardando ate que uma tecla qual- 
quer seja pressionada. So eniao, ele ar- 
rnazena esse caractere na variavel-argu- 



mento (no caso, AS), e passa para a li- 
nha seguinte do programa. 



UM GET COM M0VIMENTAQA0 



A principal desvantagem do GET. 
enlretanto, c que ele interrompe o flu- 
xo do programa ate que a tecla seja pres- 
sionada. Em contrapartida, a grandc 
vantagem do INKEYS c que o eompu- 
tador pode ser programado para fazer 
outras coisas, enquanio espera que o 



COMANDO GET 



O INKEYS pode, em muitos casos, 
ser substituido pclo comando GET, que 
exists no TK-2000. A utilizacao desse 
comando e muito simples. Ele e equiva- 
lent e ao INPUT, so que aceita apenas 
urn caractere de cada vez, e nao exige 
que se pressione a tecta < RETURN > 
para dar prosseguimento ao programa. 
Alem disso, a tecla pressionada nao e 
mostrada na tela. 

Desse modo, muitos programas Je 
outras maquinas, que usam o INKEYS 
apenas para realizar tais funcoes, podem 
ser adapt ados para o TK-2000 com o au- 
xilio do comando GET. Por excmplo, 
uma linha programada para interrom- 
pcr o fluxo do programa ate que o usua- 
rio pressione uma tecla qualquer. 



Di&' 



1000 PRINT "PRESSIONE QUALQUER 

TECLA" 
1010 LET AS = INKE1fS 
1020 IF AS="" THEN GOTO 1011 

Isso poderia ate Hear mais simpl 
TK-2000 (e no Apple II): 




1000 PRINT -PRESSIONE QUALQUER 

TECLA" 
1010 GET A3 
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Apesar de seu nome estranho, o comando 
INKEY$ nao e nenhum bicho-de-sete- 
cabecas, De grande importancia para a 
programacao de jogos, ele pode, 
contudo, ser facilmente substituido. 



COMO FUNCIONA INKEY$ 



UMSUBSTITUTOPARAOINKEYS 



APLICACOES PARA PEEK 



UM INKEY$ MAIS SOFISTICADO 



LIMITES DE TEMPO 





usuario pressione alguma tecla. No pro- 
grama apresentado, por exemplo, pode- 
riamos colocar outras linhas de progra- 
macao entre as linhas 1010 e 1020 (para 
contar o tempo passando, movimentar 
objetos graficos na tela etc), 

Ora, o GET nao permite fazer isso. 
Dai por que se torna necessario encon- 
trar urn substituto. 

Nao existe nenhum comando ou fun- 
eao especificos para isso no TK-2000. 
Porem, a funcao PEEK, que e usada pa- 



ra examinar uma posicao absoluta de 
memoria (veja artigo da pagina 261), 
pode ser usada para "varrer" o tecla- 
do. A locaclo de memoria niimero 39 
(decimal) serve para essa finalidade. En- 
quanto nerthuma tecla for pressionada 
essa locacao contera o numero 48 (de- 
cimal). Quando uma tecla for pressio- 
nada, urn valor diferente deste sera de- 
positado automaticamente na memdria. 
O programa seguinfe i lustra como po- 
demos aproveitar essa propriedade: 



10 HONE 

20 LET X-PEEK(39) 

30 IF K04S THEN PRINT K 

40 GOTO 20 

A linha 20 copia o conteiido da me- 
moria 39 tia variavel K. A 30 mostrara 
esse valor na tela apenas sc ele for difc- 
rente de 48, ou seja, se alguma tecla ti- 
ver sido pressionada. Em caso contra- 
rio, o pro grama saltara de novo para a 
linha 20, de modo a manter vigilfineia 
sobre a memdria 39. 

O unico problema i que os cbdigos 
numericos retornados para cada tecla 
pressionada nao correspondem ao c6di- 
go ASCII dos caracteres aos quais elas 
estlo atribuidas. 

Essa dificuldade, entretanto, pode ser 
facilmente solucionada por uraa peque- 
na tabela de converses, mostrada no fim 
deste artigo. Mas, se vocS preferir, po- 
de descobrir quais sSo esses cbdigos 
usando o programa. 

Para entender melhor como o co- 
mando PEEK (39) pode ser usado no lu- 
gar do comando INKE YS, acompanhe 
o programa apresentado a seguir. Ele 
desenha uma reta na tela, orientada em 
determinada direcao. Pressione uma das 
teclas de controle do cursor (flechas) 
uma linica vez, e a linha softer^ uma 
mudanca de direcio. 

Ao ser acionada a tecla < FIRE> , o 
programa terminara. 

10 HGR2:HCQL0R 3 

20 LET X-100:Y-90:DX-l:DY-0 

30 HPLOT X,Y 

40 FOR 1-1 TO 40:NEXT I 

50 LET P-PEEKC39) 

60 IF P-48 THEN X-X+DX : Y-Y+DY ; 

GOTO 30 
70 IF P-36 THEN DX-0 : DY--1 :GOTO 

30 
SO IF P-30 THEN DX-0 : DY-1 : GOTO 

30 
90 IF P-18 THEN DX— 1 :DY-0 :GOTO 

30 
95 IF P-24 THEN DX-1 : DY-Q :GOT0 

30 
100 IF P"46 THEN TEXT: END 
110 GOTO 30 

O laco principal do sistema esta com- 
preendido entre as linhas 30 e 1 10. A cor 
e a posicao inicial do ponto da tela sao 
definidos nas linhas 10 e 20. A linha 20 
tambta define duas variaveis, DX e 
DY, que dario o incremenlo a ser so- 
mado a cada coordenada — X e Y — , 
quando o ponto for deslocado. Note 
que, com DX ~ 1 e DY = 0, inicialmen- 
te o ponto vai se deslocar de um em urn 
so na direcao horizontal. 

A linha 50 examina a memdria vin- 
culada ao teclado. Se nenhuma tecla ti- 
ver sido pressionada, o codigo resultante 



e 48, e as variaveis X e Y sflo incremen- 
tadas de DX e DY, respectivamente, na 
linha 60. 

As linhas 70 a 100 verificam qual foi 
a tecla pressionada, Observe que os cb- 
digos 36, 30, 18 e 24 correspondem as 
teclas do cursor; se uma destas for pres- 
sionada, os valores de DX e DY serao 
ajustados de modo a provocar movi- 
mento na direcao apontada (a linha 40, 
por sua vez, serve apenas para diminuir 
a velocidade de deslocamento do ponto 
na tela). 

Finalmente, a linha 100 interrompe- 
ra o programa, quando a tecla < FI- 
RE > for pressionada. 



UM INKEV$ MAIS SOFtSTICADO 



O uso do comando PEEK implica a 
necessidade de trabalhar com valores 
nao padronizados de c6digos de teclas, 
Isso pode ser desvantajoso em muitas 
aplicacdes onde se deseja receber o co- 
digo ASCII da tecla, como tambim em 
programas de senha secreta (veja pagi- 
na 166), e outros. 

Infelizmente, n3o existe nenhum 
PEEK apropriado para trabalhar com 
valores ASCII, Mas podemos "enxer- 
tar" em nosso programa em BASIC 
uma pequena rotina em linguagem de 
miquina (cujo funcionamento nflo sera 
exp*licado por enquanto), que atribua a 
um PEEK essa propriedade. 

Digite o comando NEW para apagar 
o programa anterior, e entre e execute 

programa abaixo: 

1 FOR I-76B TO 774 

2 READ N I POKE I.N: NEXT I 

3 DATA 32,67,240,141,0,4,96 

Como voce" deve ter notado, aparen- 
temente nao acontece nada. Tudo que 
o programa faz e' carregar um progra- 
minha de sete bytes em c6digo de ma- 
quina numa parte nao usada da mernd- 
ria do micro, que comeca na tocaglo 
768. Isso e feito por interme'dio do co- 
mando POKE na linha 2. O programa 
esta armazenado na linha DATA. 

Depots de rodar o programa, voce" 
pode apaga-lo com o comando NEW, 
pois ele n3o serd mais necessario (o pro- 
grama em codigo de maquina ficara ar- 
mazenado ate 1 que a maquina seja desli- 
gada). Mas, se vocfi preferir, pode tam- 
b£m deixa-lo onde esta\ 

Para fazer funcionar esse programa, 
e preciso utilizar o comando CALL 768 
(que indica o endereco onde comeca o 
programa). Toda vez que isso 6 feito, o 
computador "varre" o teciado e retor- 
na a um valor numerico corresponden- 
te ao cddigo ASCII da tecla pressiona- 



da, mais 128. Se nenhuma tecla for pres- 
sionada, o codigo sera retornado. Pa- 
ra encontrar esse valor, usamos o co- 
mando PEEK (1024). 

O programa abaixo faz um teste. 

10 HOME 

20 CALL 769 

30 K-PEEKC1024) 

40 IF K>0 THEN PRINT K 

30 GOTO 20 

Como vocS ja deve ter observado, a 
Idgica do programa e bem clara: a linha 
20 chama a rotina de maquina e retor- 
na o codigo da tecla pressionada na lo- 
cacao 1024 de mernoria. 

A linha 40 imprimira esse valor se es- 
te for maior do que 0. 

Ao executar o programa vocS nota- 
ra que os valores retornados aparente- 
mente n3o pertencem ao codigo ASCII. 
A letra A maiuscula, por exemplo, re- 
torna 193; a letra B, 194, e assim por 
diante. Experimente diminuir 128 desse 
valor: o resultado serd 65, 66 etc.: ou se- 
ja, o c6digo ASCII, 

Tente agora substituir a linha 40 pe- 
lo seguinte programa: 

40 IF K>0 THEN PRINT CHR3 (K) j 

Em seguida: 

40 IF K>159 THEN PRINT CHR3 C 
K-12B) ! 

Qual a diferenca entre estas duas 
versSes? 



UM PEQUENO TESTE 



Agora, como exemplo do uso do co- 
mando CALL, digite o programa: 

10 HOME:SPEED-100 

20 PRINT "TESTE DE DIGITACAO" : 

PRINT 
30 FOR 1-1 TO 10 
40 LET T-0:NS-"" 
50 FOR N-l TO 7 
55 LET R-48+INT(RND(l)"10) 
60 N5-N3+CHRSCR) :NEXT N 
70 VTAB 10:HTAB 15: PRINT NS 
80 VTAB 20:HTAB 1 : PRINT " 

":VTAB 20:HTAB 1 
90 LET R3-"" 
100 FOR J-l TO 7 
110 CALL 768:K-PEEK{1024) 
115 IF K>0 THEN 130 
120 LET T-T+1:IF T>200 THEN 180 
125 GOTO 110 

130 LET KS-CHRSIK-128) :RS-R$+K$ 
140 PRINT K3: 
150 NEXT J 
155 VTAB 10:HTAB 15 
160 IF RS-N3 THEN PRINT 

"ACERTOU" :GOTO 190 
170 PRINT "ERROU !":GOTO 190 
180 VTAB IOiHTAB 15: PRINT 
"DEMOROU" 



190 FOR J-l TO 10Q0:NEXT J 
200 NEXT I 

O programa gera uma seqiiencia alea- 
tdria de sete digitos e pede que eles se- 
jam teclados rapidamente. O objetivo 
do exercfrio 6 digitar o niimero todo, 
sem errar, dentro de urn intervalo de 
tempo maximo. 

As 1 in has 50 a 70 geram esse niime- 
ro, armazenando-o na variavel N$ e 
mostrando-o na tela. As linhas 100 a 150 
efetuam a leitura das teclas pressiona- 
das pelo usuario e a coiocam em uma 
variavel RS. 

Finalrnente, as linhas 155 a 190 veri- 
ficam qual foi o resultado — este pode 
indicar varias alternativas, como erro, 
acerto, ou demora em datilografar to- 
do o niimero de teste. 

As linhas 1 10 e 1 15 efetuam a "var- 
redura" do teclado para verificar se al- 
go foi pressionado. Em seguida, a linha 
120 aumenta a contagem de tempo (T), 
enquanto o usuario nao pressiona ne- 
nhuma tecla, Se alguma tecla foi pres- 
sionada, as linhas 130 e 140 concatenam 
o resultado na variavel de resposta e 
mostram o caractere em outra locacao 
da tela. 



COMO FUMCIQNA 



Quern conhece um minimo de c6di- 
go de maquina sera capaz de emender 
facilmente o funcionamento da rotina 
768. VocS pode tentar carrega-la no 
TK-2000 usando o Mini-Assembler, em 
lugar do programa apresentado linhas 
atras. Simplesmente digite ASS e pres- 
sione < RETURN > . Depois, cada vez 
que aparecer um sinal de exclamacao, 
digite as linhas abaixo. 

Para sair, pressione as duas teclas 
< RESET > ao mesmo tempo: 



200 
303 

306 



JSH 3F043 
3TA 3400 
HTS 



O niimero 300 esta em hexadecimal: 
equivale ao 768 em decimal e £ o ende- 
reco de origem da rotina (mas poderia 
ser um numero diferente deste). 

O comando JSR puia para a sub- 
rotina em codigo de maquina armaze- 
nada no enderego F043, hexadecimal, 
que efetua a varredura do teclado (JSR 
equivale ao GOSUB do BASIC). 

O comando STA copia o conteudo 
do acumulador do micro (onde esta o 
codigo da tecla pressionada) e o arma- 
zena na mem6ria 1024 ($400 em hexa; 
mas poderia ser outra). 

Finalrnente, o comando RTS retor- 
na para o BASIC. 



Caractere 

nenhum 
espaco 


TABELA DE C6[ 

ASCII PEEK 139) CALL 768 

48 
32 12 160 


JIGOS DE TECLA 

Caractere ASCII PEEK (39) CALL 768 
C 67 3 19S 
D 68 9 196 


1 


33 


151 


161 


E 69 


15 


197 


■■ 


34 


150 


162 


F 70 


3 


198 





35 


149 


163 


G 71 


7 


199 


$ 


36 


148 


164 


H 72 


37 


200 


% 


37 


147 


165 


1 73 


33 


201 


& 


3d 


153 


166 


J 74 


38 


202 


t 


39 


154 


167 


K 75 


39 


203 


1 


40 


155 


168 


L 76 


40 


204 


) 


41 


156 


169 


M 77 


44 


205 


# 


42 


157 


170 


N 78 


43 


206 


+ 


43 


163 


171 


O 79 


34 


207 


, 


44 


45 


172 


P 80 


35 


208 


- 


45 


161 


173 


Q 81 


17 


209 




46 


46 


174 


R 82 


14 


210 


J 


47 


175 


175 


S 83 


10 


211 





48 


29 


176 


U 84 


32 


212 


1 


49 


23 


177 


V 85 


2 


213 


2 


50 


22 


178 


W 86 


16 


214 


3 


51 


21 


179 


X 87 


4 


215 


4 


52 


20 


180 


Y 88 


31 


216 


5 


53 


19 


181 


Z 89 


5 


217 


6 


54 


25 


182 


r 112 


36 


240 


7 


55 


26 


183 


i 113 


30 


241 


8 


56 


27 


184 


8 


18 


136 


9 


57 


28 


185 


■* 21 


24 


149 


A 


65 


11 


193 


<FIRE> 46 


46 


174 


B 


66 


1 


194 


< RETURN > 13 


42 


141 

i 






0)0 




ORJNCIONAO 

T USN 



QUE EUM PRINT FORMATADO 

PARA QUE SERVE 

PRINT USING 




COMO USAR MASCARAS 



DE FORMATACAO 



comando PRINT USING controla a 
forma com a qua! aparecem na tela os 

numeros e as cadeias alfanumericas. 

Em bora recursos de formatacao co- 
mo a virgula, a funcaoTAB etc., fun- 
cionem bem na maioria das aplicacoes, 
em alguns casos e interessante contro- 
lar nao so o posicionamento de niime- 
ros e nomcs a serem exibidos no video, 
como tambem os seus forrnatos. Ora, is- 
so nao pode ser feito apenas pelo co- 
mando PRINT. Alguns micros dispoem 
para isso de um poderoso comando 
auxiliar do PRINT, que e chamado 
USING. Outros, porem, nao contam 
com esse recurso. E o caso das linhas 
ZX-81, Spectrum, Apple II e TK-2000. 
Mais adiante, estudaremos um modo de 
superar essa difieuldade, obtendo efei- 
tos semeihantes aos provocados pelo co- 
mando PRINT USING 



El El Ml 



PARA QUE SERVE PRINT USING 



O PRINT USING faeilita a especifi- 
cacao de forrnatos de saida em tela, pos- 
sibilitando a programacao de mascaras 
de saida. Para entender melhor como o 
USING funciona, digite o exemplo a se- 
guir, que mostra as raizes quadradas de 
dez numeros inteiros: 

10 CLS 

20 FOR 1-1 TO 10 

30 PRINT USING "M it.tttt"; 

I;SQR(I) 
40 NEXT I 

Os numeros f icam almhados em duas 
colunas e a coluna da direita tern todos 
os valores com quatro decimals. Para 
verificar o efeito do PRINT USING, 
substitua a linha 30 por: 

30 PRINT I.SQRU) 

Para usar a especificacao USING 
dentro de um PRINT basta colocar en- 
tre aspas o gabarito de saida. O carac- 
tere sustenido ( # ) indica onde deve ir 
cada dlgito dos elementos da lista de sai- 
da. Um espaco em branco assinala on- 
de comeca e termina o gabarito relativo 
a cada elemento. O ponto indica onde 
deve ser feita a quebra entre as partes 



inteira e fracionaria. 

O gabarito estabelecido pelo PRINT 
pode ter especificacoes sucessivas para 
mais de um item de saida (no exemplo, 
o mesmo PRINT mostra a variavel I e 
o resultado da raiz quadrada de I, sen- 
do o primeiro com tres dighos). En- 
quanto existirem elementos de saida a 
serem Lmpressos,' apds o USING, o com- 
putador continuara procurando gabari- 
tos dentro da cadeia erttre aspas. 

O USING aceita ainda variaveis al- 
fanumericas. 

A funcao STRINGS gera uma cadeia 
de caracteres, com o comprimento de- 
sejado: 

10 CLS 

12 INPUT "QUANTAS DECIMAIS ";N 

15 US-"*# #t" + STRINGS (ND , 

20 FOR 1-1 TO 10 

30 PRINT USING U$;I;SQR{I) 

40 NEXT I 

A tabela apresemada nesta pagina re- 
laciona os diversos sinais convencionais 
utiltzados em um PRINT USING e seus 
efeitos para a especificagao de gabari- 
tos, para numeros etc. 

O PRINT USING encontra suas apli- 
cacoes mais interessantes na formatacao 
de relatorios de saida em tela ou impres- 
sora, onde se requer um controle perfei- 
to sobre o alinhamento de colunas, a 
formatacao de valores numericos etc. 
Uma linica variavel ou especificacao en- 
tre aspas no USING pode ser usada pa- 
ra formatar uma linha de saida inteira 
da tabela. Se a linha for muito longa, 

programa deve ser estruturado com 
base em varios PRINT USING separa- 
dos por pontos e vfrgulas. 

El comum, em tabelas com valores mo- 
netarios, empregar-se os sinais + e - no 
final (e nao no comeco) da quanta. Isso 
tambem e possivel no PRINT USING. 

Em programas para preenchimento 
automatico de cheques, os sinais S (ci- 
frao), SS (duplo cifr3o), »* (protegido) 
e *'S {cifrao protegido) especificam co- 
mo sera preenchida a parte esquerda de 
campos com valores monetarios: 

10 MS-" **Si#*. ##•■#•*.•* 

cruzados" 

15 DS=" H/M/IHt" 

20 INPUT "GUANTIA A SER PAGA * 

1 Q 

30 INPUT "DIA,MES,ANO";D.M,A 



40 CLS 
50 PRINT 



'PAGUE-SE A OUANTTA DE 



60 PRINT USING MS;G; 

70 PRINT "NO DIA ";: PRINT USING 

DS r D ; M ; A 

O TRS-80 e o TRS-Color tern as mes- 
mas regras de uso do PRINT USING. 
Os sinais demarcadores sao os mesmos, 
e a palavra USING deve suceder a ex- 
pressao PRINT. Ja o MSX apresenta al- 
gumas diferencas: 

- Em vez do sinaJ de porcentagem (%), 
esse micro utiliza uma barra inversa ( N ) 
para demarcar o espaco das cadeias al- 
fanumericas. 

- O ampersand (&) serve para indicar 
uma substituicao completa por uma ca- 
deia alfanumerica. 

- O termo USING pode ser misturado 
aos itens de uma linha de impressao: 



70 PRINT "NO DIA 
M:A 



; USING DS;D; 



Sinai 


CARACTERES 
DO PRINT USING 

Efeito 

coloca um dlgtto numerico 


i * 


colocs um ponto decimal 


' separa a parte inteira ern 
grupos de tres 


— 


coloca um sinal negativo 
ap6s um nijmero negativo, 
ou branco ap6s um positive 


+ 


coloca um sinal — apds urn 
niimero negativo ou um sinal 
+ ap6s um positivo 


** 


assinala um formato exponeri- 
cial 


** 


preenche um carnpo com aste- 
riscos a esquerda 




%% 


coloca um cifrao antes de um 
valor numerico 


**$ 


coloca um cifrSo e asteriscos 
a esquerda 


I 


coloca o primeiro caraciere de 
uma cadeia 


% 


assinala a inicio e o fun de um 
campo alfanumerico 

















LINHA 


FABRICANTE 


MODELO 
Thor2010 


FABRICANTE 


MODELO 


PAIS 


LINHA 


Apple 11 + 


Appletronlca 


Appletronica 


Trior 2010 


Brasil 


Apple II + 


Apple 11 + 


CCE 


MC-4000 Exato 


Apply 


Apply 300 


Brasil 


Sinclair ZX-81 


Apple 11 + 


CPA 


Absolutus 


CCE 


MC-4000 Exato 


Brasil 


Apple II + 


Apple 11 + 


CPA 


Polaris 


CPA 


Absolutus 


Brasil 


Apple II + 


Apple 11 + 


Digitus 


DGT-AP 


CPA 


Polaris 


Brasil 


Apple II + 


Apple 11 + 


Dismac 


D-8100 


Codimex 


CS-6508 


Brasil 


TRS-Color 


Apple 11 + 


ENIAC 


ENIAC II 


Digitus 


DGT-100 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Franklin 


Franklin 


Digitus 


DGT-1000 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Houston 


Houston AP 


Digitus 


DGT-AP 


Brasil 


Apple II + 


Apple 11 + 


Magnex 


DM II 


Dismac 


D-8000 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MXZ001 


Dismac 


D-8001/2 


Brasil 


TRS-80 Mod. I 


Apple 11 + 


Maxitronica 


MX-48 


Dismac 


D-8100 


Brasil 


Apple II + 


Apple 11+ 


Maxitronjca 


MX-64 


Dynacom 


MX-1600 


Brasil 


TRS-Color 


Apple 11+ 


Maxitronica 


Maxitronic 1 


ENIAC 


ENIAC II 


Brasil 


Apple II + 


Apple 11+ 


Microcraft 


CrattlPtus 


Engebras 


AS-1000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple II Plus 


Filcres 


NEZ-8000 


Brasil 


Sinclair ZX-81 


Apple 11+ 


Milmar 


Apple Master 


Franklin 


Franklin 


USA 


Apple II + 


Apple 11 + 


Milmar 


Apple Senior 


Gradients 


Expert GPC1 


Brasil 


MSX 


Apple 11 + 


Omega 


MC-400 


Houston 


Houston AP 


Brasil 


Apple II + 


Apple 11 + 


Polymax 


Maxxi 


Kemitron 


NajaBOO 


Brasil 


TRS-80 Mod.lll 


Apple 11 + 


Polymax 


Poly Plus 


LNW 


LNW-80 


USA 


TRS-80 Mod. 1 


Apple It + 


Spectrum 


Mlcroengenho 1 


LZ 


Color 64 


Brasil 


TRS-Color 


Apple 11 + 


Spectrum 


Spectrum sd 


Magnex 


DM II 


Brasil 


Apple 11 + 


Apple 11 + 


Suporte 


Venus II 


Maxitronica 


MX-2001 


Brasil 


Apple 11 + 


Apple!t + 


Sycomig 


SICI 


Maxitronica 


MX-48 


Brasil 


Apple 11 + 


Apple 11 + 


Unitron 


APII 


Maxitronica 


MX-64 


Brasil 


Apple 11 + 


Apple 11 + 


Victor do Brasil 


Elppa II Plus 


Maxitronica 


Maxitronic I 


Brasil 


Apple II + 


Apple 11 + 


Victor do Brasfl 


ElppaJr. 


Microcraft 


Craft ll Plus 


Brasil 


Apple 11 + 


Apple lie 


Microcraft 


Craft lie 


Microcraft 


Caftlle 


Brasil 


Apple He 


Apple He 


Microdigital 


TK-3000lle 


Microdigital 


TK-3000lle 


Brasil 


Apple Me 


Apple He 


Spectrum 


Mlcroengenho II 


Microdigital 


TK82C 


Brasil 


Sinclair ZX-81 


MSX 


Gradlente 


Expert GPC-1 


Microdigital 


TK-83 


Brasil 


Sinclair ZX-81 


MSX 


Sharp 


HotbltHB-8000 


Microdigital 


TK-85 


Brasil 


Sinclair ZX-81 


Sinclair Spectrum 


Microdigital 


TK-90X 


Microdigitai 


TK-90X 


Brasil 


Sinclair Spectrum 


Sinclair Spectrum 


Timex 


Timex 2000 


Microdigital 


TKS-800 


Brasfl 


TRS-Color 


Sinclair ZX-81 


Apply 


Apply 300 


Milmar 


Apple II Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Engebras 


AS-1000 


Milmar 


Apple Master 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Filcres 


NEZ-8000 


Milmar 


Apple Senior 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-82C 


Multix 


MX-Compacto 


Brasil 


TRS-80 Modi V 


Sinclair ZX-81 


Microdigital 


TK-83 


Omega 


MC-400 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Microdigital 


TK-85 


Polymax 


Maxxi 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Prologica 


CP-200 


Polymax 


Poty Plus 


Brasil 


Apple 11 + 


Sinclair ZX-81 


Ritas 


Ringo R-470 


Prologica 


CP-200 


Brasil 


SlnclairZX-81 


Sinclair ZX-81 


Timex 


Timex 1000 


Prologica 


CP-300 


Brasil 


TRS-80 Mod.lll 


Sinclair ZX-81 


Timex 


Timex 1500 


Prologica 


CP-400 


Brasil 


TRS-Color 


TRS-80 Mod. I 


Dlsmac 


D-8000 


Prologica 


CP-SOO 


Brasil 


TRS-80 Mod.lll 


TRS-80 Mod. I 


Dlsmac 


D-8001/2 


Ritas 


Ringo R-470 


Brasil 


Sinclair ZX-81 


TRS-80 Mod. I 


LNW 


LNW-80 


Sharp 


Hotbit HB-800( 


I Brasil 


MSX 


TRS-80 Mod. I 


Video Genie 


Video Genie t 


Spectrum 


Mlcroengenho 


I Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Digitus 


DGT-100 


Spectrum 


Mlcroengenho 


II Brasil 


Apple He 


TRS-80 Mod.lll 


Digitus 


DGT-1000 


Spectrum 


Spectrum ed 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Kemitron 


NajaSOO 


Suporte 


Venus II 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-300 


Sycomig 


SICI 


Brasil 


Apple 11 + 


TRS-80 Mod.lll 


Prologica 


CP-500 


Sysdata 


Sysdata III 


Brasil 


TRS-80 Mod.lll 


TRS 80 Mod.lll 


Sysdata 


Sysdata III 


Sysdata 


Sysdata IV 


Brasil 


TRS-80 Mod.IV 


TRS-80 Mod.lll 


Sysdata 


Sysdata Jr. 


Sysdata 


Sysdata Jr. 


Brasil 


TRS-80 Mod. II 1 


TRS80Mod.IV 


Multix 


MX-Compacto 


Timex 


Timex 1000 


USA 


Sinclair ZX-81 


TRS-80 Mod.IV 


Sysdata 


Sysdata IV 


Timex 


Timex 1S0O 


USA 


Sinclair ZX-81 


TRSColor 


Codimex 


CS-6508 


Timex 


Timex 2000 


USA 


Sinclair Spectrum 


TRS-Color 


Dynacom 


MX-1600 


Unitron 


APII 


Brasil 


Apple 11 + 


TRSColor 


LZ 


Color 64 


Victor do Brasil 


Elppa II Plus 


Brasil 


Apple 11 + 


TRSColor 


Microdigital 


TKS-800 


Victor do Brasil 


Elppa Jr. 


Brasil 


Apple 11 + 


TRSColor 


Prologica 


CP-400 


Video Genie 


Video Genie I 


USA 


TRS-80 Mod. 1 


INPUT foi especialmente projetado para 


_ 


■ d r 


r^l 


f£li 




microcomputadores compativeis com as sete principals ] Sinclair zx-bi 


■_■ TRS-80 L 


JLU TK 2000 


frri msx 




jjnhas existences no mercado. 

Os blocos de textos e listagens de programas aplicados ^^^ 






Quando o emblems for seguido de uma 
faixa, entao lanlo o 


r "] r- 


~l~l 


apeaas a determinadas linhas de micros podem ser 
identificados por meio dos seguintes sfmbolos: 


^■■■i 


■ ■ 


m 


programas que $i 

especificos para ; 


seguem passam a ser 
linna indicada. 


mmmm Spectrum 


■Jl TRSColor L. 


■J Apple II 



IIIIIIIHNO PROXIMO NUMEROMIIIIIIIIIII 



APLICApOES 

Um programa para completar a geracao de blocos graficos. 
Inverta cores e formas e crie novos caracteres. 

PROGRAMACAO DE JOGOS 

De como uma vfbora desnutrida pode se transformar numa 

serpente gigantesca. Divirta-se com o jogo da cobra. 

PROGRAMACAO BASIC 

Como planejar cuidadosamente a pagina-titulo e outras telas do seu programa. 

cOdigo de mAquina 

Como 6 armazenado um programa em BASIC. 
uso do PEEK. 





